有2种使用cookie cookies集合的基本方式：
1、将cookie写入访问者的计算机（RESPONSE）
2、从访问者的计算机中取回cookie（REQUEST ）
如果您对cookies如何在浏览器和服务器之间进行传递，可以参考本站最早的一些文章。
例如:http://www.aspxuexi.com/aspbasic/responseandrequest/2006-4-6/asp_reponse_request.htm
理解http头与cookies的关系对您的编程是很有帮助的。至少您不会尝试在同一个页面的读取本页面的cookie。
创建cookie的基本语法 response对象的一个方法。
Response.Cookies("CookieName")=“aspxuexi.com”
执行下面的代码将会在访问者的计算机中创建一个cookie，名字＝VisitorName，值＝字符串aspxuexi.com
Response.Cookies("VisitorName")=Request.Form("UserName")
读取cookie的基本语法 Request对象的一个方法。
Request.Cookies("CookieName")
可以将Request值当作一个变量看待，执行下面的代码，将取回名字为KensCookie的cookie值，并存入变量MyVar：
MyVar=Request.Cookies("CookieName") ‘MyVar＝"aspxuexi.com"
功能丰富的cookie
你可以扩展上面的代码成为Cookie子关键值（CookieSubName），代码如下：
Response.Cookies("VisitorName")("FirstName")="Ken"
Response.Cookies("VisitorName")("LastName")="Baumbach"
cookies命令约定和使用到期时间。
命名约定
同其他变量的命名一样，合适地、独特地命名cookie，有利于在程序中前后连贯地使用它。你可以使用下面的1个或者2个 cookie属性进行cookie变量的命名：
域属性（Domain）：域属性表明cookie由哪个网站产生或者读取，默认情况下，cookie的域属性设置为产生它的网站，但你
也可以根据需要改变它。相关代码如下：Response.Cookies("CookieName").Domain = "aspxuexi.com" '指定cookies的domain属性为aspxuexi.com 这个值和www.aspxuexi.com是完全不同的
路径属性（Path）：路径属性可以实现更多的安全要求，通过设置网站上精确的路径，就能限制cookie的使用范围。例如：
Response.Cookies("CookieName").Path = "/maindir/subdir/path" '网站的另外目录将不能读取这个值
使用到期时间
通常情况下，当浏览器关闭时，一个cookie就不存在了,这里所说的是在默认情况下。但是在许多时候，比如下面将要讨论的web站点例子，我们希望能更长时间地在访问者的计算机上保存cookie。很幸运，有这样的实现方法。下面的代码，就可以设置cookie的使用到期时间为2010年1月1日：
Response.Cookies("CookieName").Expires=#January 01, 2010# ’这里要注意vbscript中的日期格式
执行下面的代码，将设定cookie的过期时间为“cookie的创建时间＋365日”：
Response.Cookies("CookieName")=Date+365
使用cookie的实际例子
现在开始讨论实际的例子。假设：你想做一个调查，每个人初次访问时需要填写好信息，但是当日后再访问时，就不需要再那么做。利用cookie，就可以非常圆满地解决这个问题，而大可不必用到数据库。
< %
Survey=Request.Cookies("KensSurvey")
If Survey ="" then
Response.Cookies("KensSurvey")="x"
Response.Cookies("KensSurvey").Expires=#January 01, 2010#
Response.Redirect "survey.asp"
Else
'rest of the page
End if
% >
好，下面开始从头讨论上面的代码。
首先，初始设置页面，并读取名字为KensSurvey的cookie值：
< %
Survey=Request.Cookies("KensSurvey")
然后，判断是否已经存在cookie值：
If Survey ="" then
如果不存在， 就创建并设置cookie，并转到页面survey.asp。 当下一次访问时，因为存在cookie值，就不会再转到survey.asp 页面。
Response.Cookies("KensSurvey")="x"
Response.Cookies("KensSurvey").Expires=#January 01, 2010#
Response.Redirect "survey.asp"
如果cookie已经存在，那么访问者将执行页面中剩余的代码：
'rest of the page
End if
%>
例子2
这里有另外一个简单的例子：当访问者第１次浏览某个站点时，向他们显示欢迎信息。代码如下：
< %@ LANGUAGE="VBSCRIPT" % >
< %
RequestName = Request.Form("Name")
RequestLeaveMeAlone = Request.Form("LeaveMeAlone")
If RequestName < >"" or RequestLeaveMeAlone < >"" then
Response.Cookies("MySiteVisitorName") = RequestName
Response.Cookies("MySiteVisitorName").Expires = #January 01, 2010#
Response.Cookies("MySiteLeaveMeAlone") = RequestLeaveMeAlone
Response.Cookies("MySiteLeaveMeAlone").Expires = #January 01, 2010#
End if
VisitorName = request.cookies("MySiteVisitorName")
LeaveMeAlone = request.cookies("MySiteLeaveMeAlone")
If VisitorName ="" and LeaveMeAlone ="" then
% >
< HTML > < HEAD > < /HEAD >
< body bgcolor="#ccffff" text="black" link="navy" vlink="purple" >
< DIV ALIGN="CENTER" >
< form action="index.asp" method="POST" >
< H2 >Let's be friends< /H2 >
What's your name (leave blank and hit the Submit button if you don't want us to know)?
< input type="text" name="name" >< BR >< BR >
< input type="hidden" name="LeaveMeAlone" value="x" >
< input type="submit" value="Submit" >
< /FORM >
< /DIV >
< /BODY >
< %
End if
If VisitorName < > "" then
Response.write "Hi, " & VisitorName & "! I hope you are having a great day!"
End if
'rest of the page
% >
好，现在来看看上面的代码实现执行了什么。首先，设置页面。然后，检查表单变量（在同一个页面中）。如果表单变量存在，就创建cookie，并设置到期时间。
< %@ LANGUAGE="VBSCRIPT" % >
< %
RequestName = Request.Form("Name")
RequestLeaveMeAlone = Request.Form("LeaveMeAlone")
If RequestName < >"" or RequestLeaveMeAlone < >"" then
Response.Cookies("MySiteVisitorName") = RequestName
Response.Cookies("MySiteVisitorName").Expires = #January 01, 2010#
Response.Cookies("MySiteLeaveMeAlone") = RequestLeaveMeAlone
Response.Cookies("MySiteLeaveMeAlone").Expires = #January 01, 2010#
End if
接着，读取cookie：
VisitorName = request.cookies("MySiteVisitorName")
LeaveMeAlone = request.cookies("MySiteLeaveMeAlone")
如果cookie在访问者的计算机上不存在，就创建一个表单，询问相关信息：
If VisitorName ="" and LeaveMeAlone ="" then
% >
< HTML >
< HEAD >
< /HEAD >
< body bgcolor="#ccffff" text="black" link="navy" vlink="purple" >
< DIV ALIGN="CENTER" >
< form action="index.asp" method="POST" >
< H2 >Let's be friends< /H2 >
What's your name (leave blank and hit the Submit button if you don't want us to know)?
< input type="text" name="name" >< br >< br >
< input type="hidden" name="LeaveMeAlone" value="x" >
< input type="submit" value="Submit" >
< /FORM >
< /DIV >
< /BODY >
< %
End if
如果cookie已经存在，并且用户名字存在，就显示给访问者一个欢迎界面，然后执行其余的代码。
If VisitorName < > "" then
Response.write "Hi, " & VisitorName & "! I hope you are
having a great day!"
End if
'rest of the page
% >
尽管上面的这个例子很简单，但可以从中扩展许多富有创造力的应用。你可以在表单中加入许多功能，以便定制化web站点。
你还可以让访问者定制网站的色彩、字体，以至于其他web元素。有可能的话，你可以询问访问者的生日，当访问者在那一天来访
时，你就可以显示“生日快乐”的信息给他。
本文出自www.aspxuexi.com
|
