2024年2月24日发(作者：)
ASP中操作cookie
一。 另附一篇文件供你参考：
Cookie是一种发送到客户浏览器的文本串句柄，并保存在客户机硬盘上，可以用来在某个Web站点会话之间持久地保持数据。Request和Response对象都有一组Cookie。集合是一系列Cookie，从客户端与HTTP Request一起发送到Web服务器。反过来，如果你希望把Cookie发送到客户机，就可以使用
1、ExpiresAbsolute属性
该属性可以赋一个日期，过了这个日期Cookie就不能再被使用了。通过给Expires属性赋一个过期的日期，就可以删除Cookie。如：
<%s("passtime").expiresAbsolute="1/1/99"%>
2、Domain属性
该属性定义Cookie要传送的唯一域。如：Cookie只传送给Microsoft的人，则可以使用以下代码。
<%s("domain").Domain=""%>
3、ASP用来写入Cookie即向客户机发送Cookie的语法如下：
("Cookie名").[("键名").属性]=内容
如果某个ASP文件要创建一个Cookie，则下面的代码可以放在ASP文件的第一个之前，以避免产生错误.
<%s("CookieName")="NewCookie" %>
......
4、同样ASP用Request对象的Cookies集合来读取Cookie，如：
<% s("CookieName")%>
下面以一个完整的例子来说明Cookie：
<%
dim Num
Num=s("Visit_num")
if Num>0 then
Num=Num+1
"您已是第" & Num & "次访问本站点了。"
else
"欢迎您首次访问本站。"
Num=1
end if
s("Visit_num")=Num
%>
在该例子中，首先读取Cookies变量Visit_num，看用户端计算机是否保存有Cookies变量。如果有该变量，则说明用户已经访问过该页面，同时输入出访问次数。如果用户是首次访问该页面，则其计算机内不会有Cookies变量，程序会显示“欢迎”字样，然后将Cookies变量Visit_num存到用户计算机中，以便该用户下一次访问该页面时给出“访问的次数”信息。
5、Cookie字典
有时在一个页面中可能需要定义很多个Cookies变量，为了更好地管理它，在Cookies
组件中常引入一人的概念“子键”。引用它的语法如下：
s("变更名")("子键名")
如下面的Cookie创建一个名为"Dictionary"的字典，其中保存了三个键值：
<%
("info")("Myname")="jeff"
("info")("Gender")="male"
("info")("Myheight")="172"
%>
事实上客户机上的Cookie字典是以字符串的形式存在：
info=Myname=jeff&Gender=male&Myheight=172
如果用户没有指定“子键”名而直接引用Cookies变量，将会返回一个包含所有的“子键”名及值的字符串。例如上面这个例子包含三个“子键”："Myname"、"Gender"和"Myheight"，当用户没有指定其“子键”而直接通过s("info")来引用时，则会得到下列字符串：
info=Myname=jeff&Gender=male&Myheight=172
如果要把Cookie中读取的所有数据，可以用下面的代码得到：
<%For each cookie in s
if Not s then
cookie & "=" & s(cookie)
Else
for each key in s(cookie)
cookie&"("&key&")"&"="& s(cookie)(key)
next
end if
next
%>
存入 s("username") = username
读取 username = s("username")
二。
什么是 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的基本语法: s(cookie)[(key)|.attribute]=value
这里的 cookie 是指定 cookie 的名称，而如果指定了 key，则该 cookie 就是一个字典。（测试一cookie是否为一个字典可用后面代码显示布尔值：<%=s("cookiename").HasKeys%>。为true是字典，false则不是。 ）
Attribute 指定 cookie 自身的有关信息。Attribute 参数可以是下列之一 :
①Domain 若被指定，则 cookie 将被发送到对该域的请求中去。域属性表明cookie由哪个网站产生或者读取，默认情况下，cookie的域属性设置为产生它的网站，但你也可以根据需要改变它。（s("CookieName").Domain = ""）
②Path 为一路径属性，该属性可以实现更多的安全要求，通过设置网站上精确的路径，就能限制cookie的使用范围。如果未设置该属性，则使用应用程序的路径。（s("CookieName").Path = "/maindir/subdir/path" ）
③Expires 指定 cookie 的过期日期。为了在会话结束后将 cookie 存储在客户端磁盘上，或在许多时候，我们希望能更长时间地在访问者的计算机上保存cookie。必须设置该日期。若此项属性的设置未超过当前日期，则在任务结束后 cookie 将到期。
后面的代码，就可以设置cookie的使用到期时间为“2010年1月1日”：
s("CookieName").Expires=#January 01, 2010#
后面的代码，将设定cookie的过期时间为“cookie的创建时间＋365天”：s("CookieName").Expires=Date+365
但最好不要随便写 s("CookieName").Expires=Date，这样页面之间的调用时值会为空。
执行下面的代码将会在访问者的计算机中创建一个cookie，名字＝VisitorName，值＝Ken ：
s("VisitorName")="Ken"
执行下面的代码将会在访问者的计算机中创建一个cookie，名字＝VisitorName，值＝表单中UserName的值
s("VisitorName")=("UserName")
你可以扩展下面的代码成为Cookie子关键值（CookieSubName），即cookie字典的生成。代码如下：
s("VisitorName")("FirstName")="Ken"
s("VisitorName")("LastName")="Baumbach"
◆ 读取cookie的基本语法：s(cookie)[(key)|.attribute]
cookie 指定要检索其值的 cookie，key 可选参数，用于从 cookie 字典中检索子关键字的值，attribe 指定 cookie 自身的有关信息。如：HasKeys 只读，指定 cookie 是否包含关键字。
如果客户端浏览器发送了两个同名的 cookie,那么 将返回其中路径结构较深的一个。例如，如果有两个同名的的 cookie，但其中一个的路径属性为 /www/ 而另一个为 /www/home/，客户端浏览器同时将两个 cookie 都发送到 /www/home/ 目录中，那么
将只返回第二个 cookie。
◆ （通过留在本地磁盘上的cookie记录一年内访问本站的次数，第一次显示“首次访问”，以后显示“第几次访问”）
<%
dim num
num=s("visitnum")
if num > "0" then
num=num+1
"您已是第"&num&"次访问本站点了。"
else
"欢迎您首次访问本站。"
num=1
end if
s("visitnum")=num
s("visitnum").expires=date+365
%>
◆ （从Cookies文件夹中遍历出浏览器所有的Cookie name，以及相关的字典Cookie的显示）
<%
For each cookie in s
if s(cookie).HasKeys =false then
cookie & "=" & s(cookie)
("
")
Else
for each key in s(cookie)
("")
cookie & ".("&key&")" & "=" & s(cookie)(key)
("
")
next
end if
next
%>
◆
首先，设置页面。然后，检查表单变量（在同一个页面中）。如果表单变量存在，就创建cookie，并设置到期时间。
<%@ LANGUAGE="VBSCRIPT" %>
<%
bgcolor = ("bgcolor")
fgcolor = ("fgcolor")
pwd = ("pwd")
If bgcolor <>"" or fgcolor <>"" then
s("check")("bgcolor") = bgcolor
s("check")("fgcolor") = fgcolor
s("check")("pwd") = pwd
s("check").Expires=#may 01, 2004#
End if
'接着，读取cookie
bgcolor = s("check")("bgcolor")
fgcolor = s("check")("fgcolor")
pwd = s("check")("pwd")
'如果cookie在访问者的计算机上不存在，就创建一个表单，询问相关信息
If bgcolor ="" and fgcolor ="" and pwd="" then
%>
<%
End if
'如果cookie已经存在，并且bgcolor存在，就跳转到。
If bgcolor <> "" then
ct ""
End if
%>
◆ （显示用户爱好颜色的页面特性）：
<%
bgcolor=s("check")("bgcolor")
fgcolor=s("check")("fgcolor")
pwd=s("check")("pwd")
%>
<%("
")%>你的密码是：
<%(" "&pwd&" ")%>
---------------------------------------------------------------
1。使用 子键 存储多个Cookies变量（要显示设置Expires）
s("myCookies").Expires = date+ 365
s("mycookies").Domain = "My "
s("mycookies")("UserName") = username
s("mycookies")("password") = userpass
2。通用存储多个Cookies变量
's("date").Expires= (now()+1/24)
's("date")="aaa"
's("user").Expires=(now()+1/24)
's("user")="bbb"
本文来自CSDN博客，转载请/xssh913913/archive/2007/07/16/
标明处出：
发布评论