Cookies在ASP中的操作

< %
dim  numvisits
response.cookies( " NumVisits " ).Expires = date + 365  
numvisits = request.cookies( " NumVisits " )

if  numvisits = ""   then
 response.cookies( " NumVisits " ) = 1
 response.write( " 欢迎你来到本站,你从未访问过本站. " )
else
 response.cookies( " NumVisits " ) = numvisits + 1
 response.write( " 欢迎,这是你第  " )
 response.write(numvisits)
 response.write  "  次访问本站 "
end   if
% >
< html >
< body >
</ body >
</ html >
What  is  a Cookie? 
什么是Cookies?
Cookie是一小块由浏览器存贮在客户端系统上的文本，且随同每次请求发往它们应用于的域中的服务器。Cookies是数据包，可以让网页具有记忆功能，在某台电脑上记忆一定的信息。Cookies的工作原理是，第一次由服务器端写入到客户端的系统中。以后每次访问这个网页，都是先由客户端将Cookies发送到服务器端，再由服务器端进行判断，然后再产生HTML代码返回给客户端，这是一个很重要的原理。

How  to  Create a Cookie?
如何创建Cookies?
使用 Response.Cookies 命令可以创建一个Cookies
注意: Response.Cookies 命令必须在 < html > 标签之前. 
现在我们创建一个名为 " 小站 " 的Cookies ,它的值是 " 吟清手记 " : 

    < %
Response.Cookies( " blog " ) = " 吟清手记 "
% >

Cookies Expires
Cookes 的有效期
< %
Response.Cookies( " blog " ).Expires = # date #
% >
假如Expires属性没有设置，关闭当前的浏览器时，cookie将自动失效!

How  to  Retrieve a Cookie Value?
如何取回 Cookies 的值?
我们可以使用 Request.Cookies 命令取回Cookies的值 

    < %
blog = Request.Cookies( " blog " )
response.write( " 我的博客= "   &  blog)
% >

A Cookie  with  Keys
Cookies 的子关键值
一个 Cookies 可以创建多个值，我们称之为 cookie 子关键值.
我们可以使用 Response.Cookies(cookie)[(key)] 写入和 Request.Cookies(cookie)[(key)] 读取这个 Cookies 的子关键值.

写入: 

    < %
Response.Cookies( " blog " )( " names " ) = " 吟清手记 "  
Response.Cookies( " blog " )( " urls " ) = " http://blog.aspid.cn/ "  
Response.Cookies( " blog " )( " webmaster " ) = " 吟清 "
Response.Cookies( " blog " )( " email " ) = " xingis@gmail.com "
% >

    读取：

    < %
blognames = Request.Cookies( " blog " )( " names " )
blogurls = Request.Cookies( " blog " )( " urls " )
blogwebmaster = Request.Cookies( " blog " )( " webmaster " )
blogemail = Request.Cookies( " blog " )( " email " )
response.write( " 我的博客名称= "   &  blognames  & " <br /> " )
response.write( " 我的博客网址= "   &  blogurls  & " <br /> " )
response.write( " 我的博客管理员= "   &  blogwebmaster  & " <br /> " )
response.write( " 我的博客邮箱= "   &  blogemail)
% >

Read all Cookies
遍历Cookies集合 

    < %
dim  x,y
for   each  x in Request.Cookies
 response.write( " <p> " )
  if  Request.Cookies(x).HasKeys  then
  for   each  y in Request.Cookies(x)
 response.write(x  &   " : "   &  y  &   " = "   &  Request.Cookies(x)(y))
 response.write( " <br /> " )
  next
  else
 Response.Write(x  &   " = "   &  Request.Cookies(x)  &   " <br /> " )
  end   if
 response.write  " </p> "
next
% >