小弟有一问题请教：如何使用vb写入cookies，能让asp服务器得到cookies

Question

我想在客户端执行一个vb文件，能够写入到客户端的cookies中去，然后此客户端访问我的网站，服务器就能取得cookies，本人未接触过vb请各位指教！谢谢

Answer 1

你要在vb的菜单栏里选microsoft ActiveX server page object 2.1 library (也可能不是2.1)
越高越好Public GVsc As ScriptingContext
Public GVac As Application
Public GVrq As Request
Public GVrs As Response
Public GVsv As Server
Public GVss As SessionPublic Sub OnStartPage(MyscriptingContext As ScriptingContext)
gvIndexPage = 1
    Set GVsc = MyscriptingContext
    Set GVac = MyscriptingContext.Application
    Set GVrq = MyscriptingContext.Request
    Set GVrs = MyscriptingContext.Response
    Set GVsv = MyscriptingContext.Server
    Set GVss = MyscriptingContext.Session
End Sub
Public Sub OnEndPage()
    Set GVac = Nothing
    Set GVrq = Nothing
    Set GVrs = Nothing
    Set GVsv = Nothing
    Set GVss = Nothing
End Sub这么声明一下的，其他操作跟asp差不多的

Answer 2

感谢 liuxiaoyi666(兔子)
不过能不能跟我说一下细节，在哪里把东西放到session里面去

Answer 3

给我个qq，或者msn什么的我把程序发给你看了就明白的

Answer 4

[email protected]
谢谢感谢 liuxiaoyi666(兔子)

Answer 5

http://rabbit666.spymac.net/download2就是你要的

Answer 6

不行啊，我不大懂VB的，我只要一个功能，在vb里把一串字符串写到本机session里，然后服务器能拿到session

Answer 7

你这样写:
Public Declare Function InternetSetCookie Lib "wininet.dll" Alias "InternetSetCookieA" _        (ByVal lpszUrlName As String, _        ByVal lpszCookieName As String, _        ByVal lpszCookieData As String) As BooleanPublic Declare Function InternetGetCookie Lib "wininet.dll" _        Alias "InternetGetCookieA" _        (ByVal lpszUrlName As String, _        ByVal lpszCookieName As String, _        ByVal lpszCookieData As String, _        lpdwSize As Long) As Boolean在你的command_click里面:Dim bReturn As Boolean
bReturn = InternetSetCookie("http://XXX.com", "cookieName", _
          "cookieValue; expires =Sat, 02-Jan-2010 00:00:00 GMT")'OK 啦