我再写详细点:
…………………………………………………………
添加cookie:
Dim UserConfig As New ConfigWeb‘ConfigWeb是一个类文件
UserConfig.CookieAddUser("CUserId", TxtUserId.Text)
UserConfig.CookieAddUser("CUserName", TxtUserName.Text)
UserConfig.CookieAddUser("CUserPwd", TxtUserPwd.Text)
调用CookieAddUser函数:
Public Function CookieAddUser(ByVal CookieKey As String, ByVal CookieValue As String) '添加用户cookie
Dim ObjCookie As HttpCookie
ObjCookie = New HttpCookie(CookieKey, CookieValue) '学号或教号
'设置cookie的有效期
Dim dt As DateTime = DateTime.Now()
' Dim ts As New TimeSpan(30, 0, 0, 0) '天,小时,分钟,秒
ObjCookie.Expires = #12/25/2006# 'dt.Add(ts)
System.Web.HttpContext.Current.Response.Cookies.Add(ObjCookie)
End Function
完成之后转到另外一个页面regbbs.aspx
点击读取cookie按钮:
Dim UserId As String = Request.Cookies("CUserId").Value
Dim UserName As String = Request.Cookies("CUserName").Value
Dim UserPwd As String = Request.Cookies("CUserPwd").Value