Private Sub Page_Load (Byvale AS System.Object, Byval E AS System.Eventargs) Handles MyBase.Load
Dim K as Short
Response.cookies ("a"). Value = "Tiger"
Response.cookies ("b"). Value = "good"
Fork = 0 to request.cookies.count - 1
Response.write (Request.Cookies.Item (k) .name)
Response.write ("
")
Response.write (Request.Cookies.get (k) .value)
Response.write ("
")
Response.write ("
")
NEXT
Response.cookies.clear ()
End Sub