ASP中Cookie使用指南

　　我自己曾想写一篇关于Cookie的文章，特别是Client端Script同Server端ASP通过Cookie交互的问题可能会困扰大家。其实是如果你对Cookie有深入的理解，特别是对域和路径的概念比较清晰的话，就不会有问题了。
另外想提示的一点是request.ServerVariables(HTTP_COOKIE)得到Cookie和kies得到的结果可能会有所不同。大家思考一下为什么，会对ASP的学习提高有所帮助的。 Request.Cookies，例子：

　　<TABLEBORDER=2>
<THEAD>
<TH>CookieName</TH>
<TH>CookieValue</TH>
<TH>CookieHasKeys</TH>
</THEAD>
<%
DimItem
ForEachIteminRequest.Cookies
%>
<TR>
<TD><%=Item%></TD>
<TD><%=Request.Cookies(Item)%></TD>
<TD><%=Request.Cookies(Item).HasKeys%></TD>
</TR>
<TR>
<%
IfRequest.Cookies(Item).HasKeysThen
ForEachstrSubKeyInRequest.Cookies(Item)
%>
<TD>bnsp;</TD>
<TD>bnsp;</TD>
<TD><%=Request.Cookies(strKey)(strSubKey)%></TD>
<%
Next
EndIf
Next
%>
</TABLE>

　　request.ServerVariables(HTTP_COOKIE)，粒子：
<TABLEBORDER=2>
<THEAD>
<TH>CookieName</TH>
<TH>CookieValue</TH>
</THEAD>
<%
DimItem,sp,i,d
sp=split(request.ServerVariables(HTTP_COOKIE),;,-1,1)
Loopthroughthecookiecollectiondisplayingeachcookiewefind

　　Fori=0toUBound(sp)
d=split(cstr(sp(i)),=,-1,1)
%>
<TR>
<TD><%=d(0)%></TD>
<TD><%ifUBound(d)=1thenResponse.Write(d(1))elseResponse.Write%></TD>
</TR>
<%
Next
%>
</TABLE>
重粒子@Y2K0814
--------------------------------------------------------

　　下面是甘冀平翻译的<ASP中Cookie使用指南>

　　实际上，在web开发中，cookie仅仅是一个文本文件，当用户访问站点时，它就被存储在用户使用的计算机上，其中，保存了一些信息，当用户日后再次访问这个站点时，web可以将这些信息提取出来。

　　尽管现在听起来cookie没有什么激动人心的，但实际上利用它，你能实现许多有意义的功能！比如说：你可以在站点上放置一个调查问答表，询问访问者最喜欢的颜色和字体，然后根据这些定制用户的web界面。并且，你还可以保存访问者的登录密码，这样，当访问者再次访问这个站点时，不用再输入密码进行登录。

　　当然，cookie也有一些不足。首先，由于利用cookie的功能可以编程实现一些不良企图，所以大多数的浏览器中都有安全设定，其中可以设置是否允许或者接受cookie，因此这就不能保证随时能使用cookie。再者，访问者可能有意或者无意地删除cookie。当访问者的机器遇到“蓝屏”死机时，或者重新格式化硬盘、安装系统后，原来保存的cookie将全部丢失。最后一点，有一些最初始的浏览器并不能支持cookie。

　　利用cooklie能做什么？

　　有2种使用cookie的基本方式：
1、将cookie写入访问者的计算机（使用RESPONSE命令）
2、从访问者的计算机中取回cookie（使用REQUEST命令）

　　创建cookie的基本语法

　　执行下面的代码将会在访问者的计算机中创建一个cookie，名字＝VisitorName，值＝Ken
Response.Cookies(VisitorName)=Ken

　　执行下面的代码将会在访问者的计算机中创建一个cookie，名字＝VisitorName，值＝表单中UserName的值
Response.Cookies(VisitorName)=Request.Form(UserName)

　　读取cookie的基本语法

　　Request.Cookies(CookieName)

　　可以将Request值当作一个变量看待，执行下面的代码，将取回名字为KensCookie的cookie值，并存入变量MyVar：
MyVar=Request.Cookies(KensCookie)

　　执行下面的代码，将判断名字为KensCookie的cookie值是否为“Yes”：
IfRequest.Cookies(KensCookie)=Yesthen

　　功能丰富的cookie

　　你可以扩展上面的代码成为Cookie子关键值（CookieSubName），代码如下：
Response.Cookies(VisitorName)(FirstName)=Ken
Response.Cookies(VisitorName)(LastName)=Baumbach

　　讲解例子前，最后讨论2个概念：命令约定和使用到期时间。

　　命名约定

　　同其他变量的命名一样，合适地、独特地命名cookie，有利于在程序中前后连贯地使用它。你可以使用下面的1个或者2个cookie属性进行cookie变量的命名：

　　域属性（Domain）：域属性表明cookie由哪个网站产生或者读取，默认情况下，cookie的域属性设置为产生它的网站，但你也可以根据需要改变它。相关代码如下：Response.Cookies(CookieName).Domain=quot

　　路径属性（Path）：路径属性可以实现更多的安全要求，通过设置网站上精确的路径，就能限制cookie的使用范围。例如：
Response.Cookies(CookieName).Path=/maindir/subdir/path

　　使用到期时间

　　通常情况下，当浏览器关闭时，一个cookie就不存在了。但是在许多时候，比如下面将要讨论的web站点例子，我们希望能更长时间地在访问者的计算机上保存cookie。很幸运，有这样的实现方法。下面的代码，就可以设置cookie的使用到期时间为2010年1月1日：
Response.Cookies(CookieName).Expires=#January01,2010#

　　执行下面的代码，将设定cookie的过期时间为“cookie的创建时间＋365日”：
Response.Cookies(CookieName)=Date+365

　　使用cookie的实际例子（非常精彩）

　　现在开始讨论实际的例子。假设：你想做一个调查，每个人初次访问时需要填写好信息，但是当日后再访问时，就不需要再那么做。利用cookie，就可以非常圆满地解决这个问题，而大可不必用到数据库。

　　<%@LANGUAGE=VBSCRIPT%>
<%
IfSurvey=then
Response.Cookies(KensSurvey)=x
Response.Cookies(KensSurvey).Expires=#January01,2010#
Response.Redirectsurvey.asp
Else
restofthepage
Endif
%>
好，下面开始从头讨论上面的代码。

　　首先，初始设置页面，并读取名字为KensSurvey的cookie值：

　　
<%@LANGUAGE=VBSCRIPT%>
<%
然后，判断是否已经存在cookie值：

　　IfSurvey=then
如果不存在，就创建并设置cookie，并转到页面survey.asp。当下一次访问时，因为存在cookie值，就不会再转到survey.asp页面。

　　Response.Cookies(KensSurvey)=x
Response.Cookies(KensSurvey).Expires=#January01,2010#
Response.Redirectsurvey.asp
如果cookie已经存在，那么访问者将执行页面中剩余的代码：

　　restofthepage

　　Endif
%>
例子2

　　这里有另外一个简单的例子：当访问者第１次浏览某个站点时，向他们显示欢迎信息。代码如下：

　　<%@LANGUAGE=VBSCRIPT%>
<%
RequestName=Request.Form(Name)
RequestLeaveMeAlone=Request.Form(LeaveMeAlone)
IfRequestName<>orRequestLeaveMeAlone<>then
Response.Cookies(MySiteVisitorName)=RequestName
Response.Cookies(MySiteVisitorName).Expires=#January01,2010#
Response.Cookies(MySiteLeaveMeAlone)=RequestLeaveMeAlone
Response.Cookies(MySiteLeaveMeAlone).Expires=#January01,2010#
Endif
VisitorName=request.cookies(MySiteVisitorName)
LeaveMeAlone=request.cookies(MySiteLeaveMeAlone)

　　IfVisitorName=andLeaveMeAlone=then
%>
<HTML><HEAD></HEAD>
<bodybgcolor=#ccfffftext=blacklink=navyvlink=purple>
<DIVALIGN=CENTER&n