使用Cookie

通过Cookie可以在本机临时存储数据，每次访问服务器网页时，都会自动将Cookie中的值，传递给服务器。

HttpRequest事件有个Cookies字典，包括所有的Cookie，例如要列出所有Cookie的名称和值：

Dim sb As New StringBuilder
For Each key As String In e.Cookies.Keys
    sb.AppendLine(key & ":" & e.Cookies(key))
Next
e.WriteString(sb.Tostring)

HttpRequest只有一个AppendCookie方法，用于增加Cookie，使用起来不是很方便，参考使用Cookie。

WeUI扩展了三个和Cookie相关的方法，分别是：

• AppendCookie
  
  用于添加Cookie，语法为：
  
  AppendCookie(Name, Value, Expires)
  
  Name：   Cookie名称
  Value：  Cookie值
  Expires：可选参数，整数型，用于设置Cookie的有效时间，单位是分钟，如果不设置，关闭浏览器后Cookie将失效。
  　
• DeleteCookie
  
  用于删除指定名称的Cookie，语法：
  
  DeleteCookie(Name)
  
  Name：Cookie名称
  　
• ClearCookie
  
  清除全部Cookie。

我的建议是：

尽量用WeUI处理Cookie，但是也有一些特殊情况无法使用WeUI，例如HttpClient，此时只能使用HttpRequest内置的AppendCookie方法。

一个例子

将HttpRequest事件代码设置为：

Dim wb As New WeUI
Dim cnt As  Integer = 1
If e.Cookies.ContainsKey("count") '如果存在名为count的Cookie
    Integer.TryParse(e.Cookies("count"),cnt) '提取cookie的值, 并转换为整数
    cnt = cnt + 1
End If
wb.AppendCookie("count",cnt) '在客户端存储Cookie
wb.InsertHTML("您这是第" & cnt & "次访问!")
e.WriteString(wb.Build)

现在每次刷新页面，访问次数都会递增1：