'写Cookies Public Sub Cookies_Write(ByVal Name As String, ByVal Value As String, ByVal DateStr As String) Dim MyCookies As New HttpCookie(Name) MyCookies.Value = Server.UrlEncode(Value) 'MyCookies.Value = Value If DateStr <> "" Then MyCookies.Expires = CDate(DateStr) Response.Cookies.Add(MyCookies) End Sub Call Cookies_Write("UserID", UserID, "") 'Call Cookies_Write("UserName", UserName, DateTime.Now.AddDays(+10)) Call Cookies_Write("UserName", UserName, "") Call Cookies_Write("UserRealName", UserRealName, "") Call Cookies_Write("UserClass", UserClass, "") Call Cookies_Write("UserWorkUnit", UserWorkUnit, "")
会话cookie和持久性cookie之间仅有的差异在于附加的过期数据。 创建一个持久性Cookie到2006年12月12月过期: Dim ObjCookie as new HttpCookie("MyCookie","naoteng") objcookie.expirec=#12/12/2006# response,.Cookie.add(ObjCookie)
你说“不设置过期时间”再检查一遍吧
-----------------------------------------------
don't wrroied,be happy!
你最好把代码贴出来,不然,这个不好说。
Public Sub Cookies_Write(ByVal Name As String, ByVal Value As String, ByVal DateStr As String)
Dim MyCookies As New HttpCookie(Name)
MyCookies.Value = Server.UrlEncode(Value)
'MyCookies.Value = Value
If DateStr <> "" Then MyCookies.Expires = CDate(DateStr)
Response.Cookies.Add(MyCookies)
End Sub
Call Cookies_Write("UserID", UserID, "")
'Call Cookies_Write("UserName", UserName, DateTime.Now.AddDays(+10))
Call Cookies_Write("UserName", UserName, "")
Call Cookies_Write("UserRealName", UserRealName, "")
Call Cookies_Write("UserClass", UserClass, "")
Call Cookies_Write("UserWorkUnit", UserWorkUnit, "")
创建一个持久性Cookie到2006年12月12月过期:
Dim ObjCookie as new HttpCookie("MyCookie","naoteng")
objcookie.expirec=#12/12/2006#
response,.Cookie.add(ObjCookie)
删除 Cookie(即把该 Cookie 从用户的硬盘上物理删除)是修改 Cookie 的一种形式。由于 Cookie 位于用户的计算机中,所以您无法直接将其删除。但是,您可以让浏览器为您删除 Cookie。修改 Cookie 的方法前面已经介绍过(即用相同的名称创建一个新的 Cookie),不同的是将其有效期设置为过去的某个日期。当浏览器检查 Cookie 的有效期时,就会删除这个已过期的 Cookie。所以,删除 Cookie 的方法与创建该 Cookie 的方法是相同的,只不过要把其有效期设置为过去的某个日期。以下示例比删除单个 Cookie 要稍微有趣一些,它使用的方法可以删除当前域的所有 Cookie:具体点就是cookie 的Expires属性设置过期时间
有没有关系呀