<%
Response.Cookies("domain") = "mzwu.com"
Response.Cookies("webmaster")("name") = "dnawo"
Response.Cookies("webmaster")("email") = "dnawo@sohu.com"
'输出全部Cookie
Dim X,Y
For Each X In Request.Cookies
'判断是否带有键(Keys)
If Request.Cookies(X).HasKeys Then
For Each Y In Request.Cookies(X)
Response.Write(X & "." & Y & ": " & Request.Cookies(X)(Y) & "<br/>")
Next
Else
Response.Write(X & ": " & Request.Cookies(X) & "<br/>")
End If
Next
%>
评论(0)
暂无评论。