ASP编程入门进阶（六）：Cookies讲座

什么是 COOKIE？COOKIE 其实是一个标签，经常可能听到的中文翻译：小舔饼。当你访问一个需要唯一标识你的站址的 WEB 站点时，它会在你的硬盘上留下一个标记，下一次你访问同一个站点时，站点的页面会查找这个标记。

每个 WEB 站点都有自己的标记，标记的内容可以随时读取，但只能由该站点的页面完成。每个站点的COOKIE与其他所有站点的COOKIE存在同一文件夹中的不同文件内（你可以在 win98 的 Windows 目录下的 COOKIE 文件夹中找到它们，而 win2k 则在 Documents and Settings 文件夹下特定用户的 COOKIEs 文件夹中）。

一个 COOKIE 就是一个唯一标识客户的标记，COOKIE 可以包含在一个对话期或几个对话期之间某个 WEB 站点的所有页面共享的信息，使用 COOKIE 还可以在页面之间交换信息。这项功能经常被使用在要求认证客户密码以及电子公告板、WEB 聊天室等 ASP 程序中。

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

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


◆ 怎样利用cooklie？
有2种使用COOKIE的基本方式：
1、将COOKIE写入访问者的计算机（使用 Response 命令）
2、从访问者的计算机中取回COOKIE（使用 Request 命令）

◆ 创建COOKIE的基本语法: Response.COOKIEs(COOKIE)[(key)|.attribute]=value
这里的 COOKIE 是指定 COOKIE 的名称。
而如果指定了 key，则该 COOKIE 就是一个字典。
（测试一COOKIE是否为一个字典可用后面代码显示布尔值：<%=Request.COOKIEs("COOKIEname").HasKeys%>。为true是字典，false则不是。 ）
Attribute 指定 COOKIE 自身的有关信息。Attribute 参数可以是下列之一 :

①Domain 若被指定，则 COOKIE 将被发送到对该域的请求中去。域属性表明COOKIE由哪个网站产生或者读取，默认情况下，COOKIE的域属性设置为产生它的网站，但你也可以根据需要改变它。（Response.COOKIEs("COOKIEName").Domain = "www.mydomain.com"）

②Path 为一路径属性，该属性可以实现更多的安全要求，通过设置网站上精确的路径，就能限制COOKIE的使用范围。如果未设置该属性，则使用应用程序的路径。（Response.COOKIEs("COOKIEName").Path = "/maindir/subdir/path" ）

③Expires 指定 COOKIE 的过期日期。为了在会话结束后将 COOKIE 存储在客户端磁盘上，或在许多时候，我们希望能更长时间地在访问者的计算机上保存COOKIE。必须设置该日期。若此项属性的设置未超过当前日期，则在任务结束后 COOKIE 将到期。

后面的代码，就可以设置COOKIE的使用到期时间为“2010年1月1日”： Response.COOKIEs("COOKIEName").Expires=#January 01, 2010#
后面的代码，将设定COOKIE的过期时间为“COOKIE的创建时间＋365天”：Response.COOKIEs("COOKIEName").Expires=Date+365
但最好不要随便写 Response.COOKIEs("COOKIEName").Expires=Date，这样页面之间的调用时值会为空。


执行下面的代码将会在访问者的计算机中创建一个COOKIE，名字＝VisitorName，值＝Ken ：
Response.COOKIEs("VisitorName")="Ken"
执行下面的代码将会在访问者的计算机中创建一个COOKIE，名字＝VisitorName，值＝表单中UserName的值
Response.COOKIEs("VisitorName")=Request.Form("UserName")
你可以扩展下面的代码成为COOKIE子关键值（COOKIESubName），即COOKIE字典的生成。代码如下：
Response.COOKIEs("VisitorName")("FirstName")="Ken"
Response.COOKIEs("VisitorName")("LastName")="Baumbach"



◆ 读取COOKIE的基本语法：Request.COOKIEs(COOKIE)[(key)|.attribute]
COOKIE 指定要检索其值的 COOKIE。
key 可选参数，用于从 COOKIE 字典中检索子关键字的值。
attribe 指定 COOKIE 自身的有关信息。如：HasKeys 只读，指定 COOKIE 是否包含关键字。
如果客户端浏览器发送了两个同名的 COOKIE,那么 Request.COOKIE 将返回其中路径结构较深的一个。例如，如果有两个同名的的 COOKIE，但其中一个的路径属性为 /www/ 而另一个为 /www/home/，客户端浏览器同时将两个 COOKIE 都发送到 /www/home/ 目录中，那么 Request.COOKIE 将只返回第二个 COOKIE。

案例分析：

◆ num.asp（通过留在本地磁盘上的COOKIE记录一年内访问本站的次数，第一次显示“首次访问”，以后显示“第几次访问”）

<% dim num num=request.COOKIEs("visitnum") if num > "0" then num=num+1 Response.write "您已是第"&num&"次访问本站点了。" else Response.write "欢迎您首次访问本站。" num=1 end if response.COOKIEs("visitnum")=num response.COOKIEs("visitnum").expires=date+365 %>

◆ showCOOKIE.asp（从COOKIEs文件夹中遍历出浏览器所有的COOKIE name，以及相关的字典COOKIE的显示（蓝字显示））

<% For each COOKIE in Request.COOKIEs if Request.COOKIEs(COOKIE).HasKeys =false then Response.write COOKIE & "=" & Request.COOKIEs(COOKIE) Response.write (" ") Else for each key in Request.COOKIEs(COOKIE) Response.write ("") Response.write COOKIE & ".("&key&")" & "=" & Request.COOKIEs(COOKIE)(key) Response.write (" ") next end if next %>

◆ check.asp
'首先，设置页面。然后，检查表单变量（在同一个页面中）。如果表单变量存在，就创建COOKIE，并设置到期时间。

<%@ LANGUAGE="Vbscript" %> <% bgcolor = Request.Form("bgcolor") fgcolor = Request.Form("fgcolor") pwd = Request.form("pwd") If bgcolor <>"" or fgcolor <>"" then Response.COOKIEs("check")("bgcolor") = bgcolor Response.COOKIEs("check")("fgcolor") = fgcolor Response.COOKIEs("check")("pwd") = pwd Response.COOKIEs("check").Expires=#may 01, 2004# End if '接着，读取COOKIE bgcolor = request.COOKIEs("check")("bgcolor") fgcolor = request.COOKIEs("check")("fgcolor") pwd = request.COOKIEs("check")("pwd") '如果COOKIE在访问者的计算机上不存在，就创建一个表单，询问相关信息 If bgcolor ="" and fgcolor ="" and pwd="" then %> Bgcolor: Fgcolor: Password: <% End if '如果COOKIE已经存在，并且bgcolor存在，就跳转到color.asp。 If bgcolor <> "" then Response.Redirect "color.asp" End if %>

◆ color.asp（显示用户爱好颜色的页面特性）

<% bgcolor=request.COOKIEs("check")("bgcolor") fgcolor=request.COOKIEs("check")("fgcolor") pwd=request.COOKIEs("check")("pwd") %> <%response.write("")%> 你的密码是： <%response.write(" "&pwd&" ")%>