| 网站首页 | 文章中心 | 电子书下载 | 矢量图库 | 视频教程 | 素材下载 | 程序代码下载 | JS代码 | 论坛 | 
常用软件类：
 |杀毒安全 |联络聊天 |网络软件 |多媒体类 |系统工具 |图形图像 |系统工具 |应用软件 |行业软件
开发设计类：
 |动画制作 |图像处理 |3D设计 |操作系统 |站长学院 |网络相关 |WEB设计 |数据库类 |程序开发
ASP.NET中Cookie编程操作
作者：未知    文章来源：网络    点击数：    更新时间：2007-3-8
　 取 Cookie 集合 

　　前面的示例假设您要读取名称已知的 Cookie。有时，您可能需要读取可供页面使用的所有 Cookie。要读取可供页面使用的所有 Cookie 的名称和值，您可以利用如下代码遍历 Request.Cookies 集合： 

Dim i As Integer 
Dim output As String = "" 
Dim aCookie As HttpCookie 
For i = 0 to Request.Cookies.Count - 1 
aCookie = Request.Cookies(i) 
output &= "Cookie 名称 = " & Server.HtmlEncode(aCookie.Name) & "<br>" 
output &= "Cookie 值 = " & Server.HtmlEncode(aCookie.Value) & _ 
& "<br><br>" 
Next 
Label1.Text = output 

　　注意：运行此代码时，您很可能会看到一个名为“ASP.NET_SessionId”的 Cookie，ASP.NET 用这个 Cookie 来保存您的会话的唯一标识符。这个会话 Cookie 不会永久保存到您的硬盘上。有关会话 Cookie 的详细信息，请参阅本文后面的 Cookie 和会话状态。 
前面的示例有一个限制：如果 Cookie 有子键，就会以一个单独的名称/值字符串来显示子键。Cookie 的 HasKeys（英文）属性可以告诉您该 Cookie 是否有子键。如果有子键，您可以在子键集合中向下钻取，获取各个子键的名称和值。 

　　如前文所述，您可以从 Cookie 属性 Values（英文）中获取有关子键的信息，该属性是类型 NameValueCollection 的集合。您可以根据索引值从 Values 集合中直接读取子键值。相应的子键值可以从 Values 集合的成员 AllKeys（英文）中得到，该成员将返回一个字符串集合。 

　　以下示例是对前一示例的修改。示例中使用 HasKeys 属性来测试子键，如果检测到子键，就从 Values 集合中获取子键： 

Dim i As Integer 
Dim j As Integer 
Dim output As String = "" 
Dim aCookie As HttpCookie 
Dim subkeyName As String 
Dim subkeyValue As String 
For i = 0 To Request.Cookies.Count - 1 
aCookie = Request.Cookies(i) 
output &= "名称 = " & aCookie.Name & "<br>" 
If aCookie.HasKeys Then 
For j = 0 To aCookie.Values.Count - 1 
subkeyName = Server.HtmlEncode(aCookie.Values.AllKeys(j)) 
subkeyValue = Server.HtmlEncode(aCookie.Values(j)) 
output &= "子键名称 = " & subkeyName & "<br>" 
output &= "子键值 = " & subkeyValue & "<br><br>" 
Next 
Else 
output &= "值 = " & Server.HtmlEncode(aCookie.Value) & "<br><br>" 
End If 
Next 
Label1.Text = output 

　　您也可以把子键作为 NameValueCollection 对象进行提取，如下所示： 

If aCookie.HasKeys Then 
Dim CookieValues As _ 
System.Collections.Specialized.NameValueCollection = aCookie.Values 
Dim CookieValueNames() As String = CookieValues.AllKeys 
For j = 0 To CookieValues.Count – 1 
subkeyName = Server.HtmlEncode(CookieValueNames(j)) 
subkeyValue = Server.HtmlEncode(CookieValues(j)) 
output &= "子键名称 = " & subkeyName & "<br>" 
output &= "子键值 = " & subkeyValue & "<br><br>" 
Next 
Else 
output &= "值 = " & aCookie.Value & "<br><br>" 
End If 

　　注意：请记住，我之所以调用 Server.HtmlEncode 方法，只是因为我要在页面上显示 Cookie 的值。如果您只是测试 Cookie 的值，就不必在使用前对其进行编码。 

　　修改和删除 Cookie 

　　有时，您可能需要修改某个 Cookie，更改其值或延长其有效期。（请记住，由于浏览器不会把有效期信息传递到服务器，所以您无法读取 Cookie 的过期日期。） 

　　当然，实际上您并不是直接更改 Cookie。尽管您可以从 Request.Cookies 集合中获取 Cookie 并对其进行操作，但 Cookie 本身仍然存在于用户硬盘上的某个地方。因此，修改某个 Cookie 实际上是指用新的值创建新的 Cookie，并把该 Cookie 发送到浏览器，覆盖客户机上旧的 Cookie。 

　　以下示例说明了如何更改用于储存站点访问次数的 Cookie 的值： 

Dim counter As Integer 
If Request.Cookies("counter") Is Nothing Then 
counter = 0 
Else 
counter = CInt(Request.Cookies("counter").Value) 
End If 
counter += 1 
Response.Cookies("counter").Value = counter.ToString 
Response.Cookies("counter").Expires = DateTime.Now.AddDays(1) 

　　或者： 

Dim ctrCookie As HttpCookie 
Dim counter As Integer 
If Request.Cookies("counter") Is Nothing Then 
ctrCookie = New HttpCookie("counter") 
Else 
ctrCookie = Request.Cookies("counter") 
End If 
counter = CInt(ctrCookie.Value) + 1 
ctrCookie.Value = counter.ToString 
ctrCookie.Expires = DateTime.Now.AddDays(1) 
Response.Cookies.Add(ctrCookie) 

  • 上一篇文章：

  • 下一篇文章： 没有了
    • 相关文章