asp cookie的用法与时间设置

<%
dim x,y

 for each x in Request.Cookies
  response.write("

")
  if Request.Cookies(x).HasKeys then
    for each y in Request.Cookies(x)
      response.write(x & ":" & y & "=" & Request.Cookies(x)(y))
      response.write("
")
    next
  else
    Response.Write(x & "=" & Request.Cookies(x) & "
")
  end if
  response.write "

"
next
%>