<%
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
%>