ASP Cookies操作的详细介绍与实例代码
程序员文章站
2022-06-24 16:14:51
cookie是一种发送到客户浏览器的文本串句柄，并保存在客户机硬盘上，可以用来在某个web站点会话之间持久地保持数据。request和response对象都有一组cooki...
cookie是一种发送到客户浏览器的文本串句柄，并保存在客户机硬盘上，可以用来在某个web站点会话之间持久地保持数据。request和response对象都有一组cookie。request.cookie集合是一系列cookie，从客户端与http request一起发送到web服务器。反过来，如果你希望把cookie发送到客户机，就可以使用response.cookie
1、expiresabsolute属性
该属性可以赋一个日期，过了这个日期cookie就不能再被使用了。通过给expires属性赋一个过期的日期，就可以删除cookie。如：
<%response.cookies("passtime").expiresabsolute="1/1/99"%>
2、domain属性
该属性定义cookie要传送的唯一域。如：cookie只传送给microsoft的人，则可以使用以下代码。
<%response.cookies("domain").domain="www.microsoft.com"%>
3、asp用来写入cookie即向客户机发送cookie的语法如下：
response.cookie("cookie名").[("键名").属性]=内容
如果某个asp文件要创建一个cookie，则下面的代码可以放在asp文件的第一个<html>之前，以避免产生错误.
<%response.cookies("cookiename")="newcookie" %>
<html>
......
</html>
4、同样asp用request对象的cookies集合来读取cookie，如：
<%response.write request.cookies("cookiename")%>
下面以一个完整的例子来说明cookie：
<%
dim num
num=request.cookies("visit_num")
if num>0 then
num=num+1
response.write "您已是第" & num & "次访问本站点了。"
else
response.write "欢迎您首次访问本站。"
num=1
end if
response.cookies("visit_num")=num
%>
在该例子中，首先读取cookies变量visit_num，看用户端计算机是否保存有cookies变量。如果有该变量，则说明用户已经访问过该页面，同时输入出访问次数。如果用户是首次访问该页面，则其计算机内不会有cookies变量，程序会显示“欢迎”字样，然后将cookies变量visit_num存到用户计算机中，以便该用户下一次访问该页面时给出“访问的次数”信息。
5、cookie字典
有时在一个页面中可能需要定义很多个cookies变量，为了更好地管理它，在cookies组件中常引入一人的概念“子键”。引用它的语法如下：
request.cookies("变更名")("子键名")
如下面的cookie创建一个名为"dictionary"的字典，其中保存了三个键值：
<%
response.cookie("info")("myname")="jeff"
response.cookie("info")("gender")="male"
response.cookie("info")("myheight")="172"
%>
事实上客户机上的cookie字典是以字符串的形式存在：
info=myname=jeff&gender=male&myheight=172
如果用户没有指定“子键”名而直接引用cookies变量，将会返回一个包含所有的“子键”名及值的字符串。例如上面这个例子包含三个“子键”："myname"、"gender"和"myheight"，当用户没有指定其“子键”而直接通过request.cookies("info")来引用时，则会得到下列字符串：
info=myname=jeff&gender=male&myheight=172
如果要把cookie中读取的所有数据，可以用下面的代码得到：
<%for each cookie in request.cookies
if not cookie.haskeys then
response.write cookie & "=" & request.cookies(cookie)
else
for each key in request.cookies(cookie)
response.write cookie&"("&key&")"&"="& request.cookies(cookie)(key)
next
end if
next
%>
下面是具体的在页面中记录查询的记录的代码
sub setcookie
dim c_domainlist,c_i
c_domainlist=request.cookies("jb51")("c_domainlist")
if domain<>"" and c_domainlist<>"" then
if not instr(c_domainlist,domain&"|")>0 then c_domainlist=domain&"|"&c_domainlist
end if
if domain<>"" and c_domainlist="" then
c_domainlist=domain&"|"
end if
if c_domainlist<>"" then
response.write "<div id=c_domainlist>您关注的站点："
c_arrdomain = split(c_domainlist,"|")
c_domainlist=""
numdomain=ubound(c_arrdomain)-1
if numdomain>4 then numdomain=4
for c_i=0 to numdomain
response.write " <a href=?url="&c_arrdomain(c_i)&">"&c_arrdomain(c_i)&"</a> |"
c_domainlist=c_domainlist&c_arrdomain(c_i)&"|"
next
response.cookies("jb51")("c_domainlist")=c_domainlist
response.cookies("jb51").expires=date+30
response.write "<a href=# style=""cursor:pointer"" onclick=""clearcookie('jb51');alert('已清除记录！');"">清除记录</a></div>"
end if
end sub
演示页面:
1、expiresabsolute属性
该属性可以赋一个日期，过了这个日期cookie就不能再被使用了。通过给expires属性赋一个过期的日期，就可以删除cookie。如：
<%response.cookies("passtime").expiresabsolute="1/1/99"%>
2、domain属性
该属性定义cookie要传送的唯一域。如：cookie只传送给microsoft的人，则可以使用以下代码。
<%response.cookies("domain").domain="www.microsoft.com"%>
3、asp用来写入cookie即向客户机发送cookie的语法如下：
response.cookie("cookie名").[("键名").属性]=内容
如果某个asp文件要创建一个cookie，则下面的代码可以放在asp文件的第一个<html>之前，以避免产生错误.
<%response.cookies("cookiename")="newcookie" %>
<html>
......
</html>
4、同样asp用request对象的cookies集合来读取cookie，如：
<%response.write request.cookies("cookiename")%>
下面以一个完整的例子来说明cookie：
复制代码 代码如下:
<%
dim num
num=request.cookies("visit_num")
if num>0 then
num=num+1
response.write "您已是第" & num & "次访问本站点了。"
else
response.write "欢迎您首次访问本站。"
num=1
end if
response.cookies("visit_num")=num
%>
在该例子中，首先读取cookies变量visit_num，看用户端计算机是否保存有cookies变量。如果有该变量，则说明用户已经访问过该页面，同时输入出访问次数。如果用户是首次访问该页面，则其计算机内不会有cookies变量，程序会显示“欢迎”字样，然后将cookies变量visit_num存到用户计算机中，以便该用户下一次访问该页面时给出“访问的次数”信息。
5、cookie字典
有时在一个页面中可能需要定义很多个cookies变量，为了更好地管理它，在cookies组件中常引入一人的概念“子键”。引用它的语法如下：
request.cookies("变更名")("子键名")
如下面的cookie创建一个名为"dictionary"的字典，其中保存了三个键值：
复制代码 代码如下:
<%
response.cookie("info")("myname")="jeff"
response.cookie("info")("gender")="male"
response.cookie("info")("myheight")="172"
%>
事实上客户机上的cookie字典是以字符串的形式存在：
info=myname=jeff&gender=male&myheight=172
如果用户没有指定“子键”名而直接引用cookies变量，将会返回一个包含所有的“子键”名及值的字符串。例如上面这个例子包含三个“子键”："myname"、"gender"和"myheight"，当用户没有指定其“子键”而直接通过request.cookies("info")来引用时，则会得到下列字符串：
info=myname=jeff&gender=male&myheight=172
如果要把cookie中读取的所有数据，可以用下面的代码得到：
复制代码 代码如下:
<%for each cookie in request.cookies
if not cookie.haskeys then
response.write cookie & "=" & request.cookies(cookie)
else
for each key in request.cookies(cookie)
response.write cookie&"("&key&")"&"="& request.cookies(cookie)(key)
next
end if
next
%>
下面是具体的在页面中记录查询的记录的代码
复制代码 代码如下:
sub setcookie
dim c_domainlist,c_i
c_domainlist=request.cookies("jb51")("c_domainlist")
if domain<>"" and c_domainlist<>"" then
if not instr(c_domainlist,domain&"|")>0 then c_domainlist=domain&"|"&c_domainlist
end if
if domain<>"" and c_domainlist="" then
c_domainlist=domain&"|"
end if
if c_domainlist<>"" then
response.write "<div id=c_domainlist>您关注的站点："
c_arrdomain = split(c_domainlist,"|")
c_domainlist=""
numdomain=ubound(c_arrdomain)-1
if numdomain>4 then numdomain=4
for c_i=0 to numdomain
response.write " <a href=?url="&c_arrdomain(c_i)&">"&c_arrdomain(c_i)&"</a> |"
c_domainlist=c_domainlist&c_arrdomain(c_i)&"|"
next
response.cookies("jb51")("c_domainlist")=c_domainlist
response.cookies("jb51").expires=date+30
response.write "<a href=# style=""cursor:pointer"" onclick=""clearcookie('jb51');alert('已清除记录！');"">清除记录</a></div>"
end if
end sub
演示页面: