asp六内部对象之Cookie

相当强大的Cookie，让很多事情留给客户端自己去处理。呵呵！服务器很舒服哦！
写入Cookie：
Response.Cookies("CookieM1").Expires=Date+30  ''过期时间
Response.Cookies("CookieM1").Path = "路径" ''Cookie作用域
Response.Cookies("CookieM1")("key1") = "KeyValue"
注意：CookieM1，Key1都是可变的。可以添加很多Cookie。
读出Cookie：
CKS_i=0
For each cookieN in Request.Cookies
     if CKS_i > 20 then
          exit for
     else
          if Request.cookies(cookieN).HasKeys = True and instr(cookieN,"CookieM") <> 0 then
               Value=Request.Cookies(cookieN)("key1")
          end if
     end if
     CKS_i=CKS_i+1
next
删除Cookie
只要在定义的时候把过期时间修改为以前的就可以了。如：
Response.Cookies("CookieM1").Expires=Date-1  ''过期时间