当前位置: 开发笔记 > 前端 > 正文

ASPCookies操作的详细介绍与实例代码

作者：Im边夫人 | 来源：互联网 | 2022-03-06 22:03

COOKIE是一种发送到客户浏览器的文本串句柄，并保存在客户机硬盘上，可以用来在某个Web站点会话之间持久地保持数据。Request和Res

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文件的第一个之前，以避免产生错误.
<%Response.COOKIEs("COOKIEName")="NewCOOKIE" %> ...... 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&MyMyname"、"Gender"和"Myheight"，当用户没有指定其“子键”而直接通过Request.COOKIEs("info")来引用时，则会得到下列字符串：
info=Myname=jeff&Gender=male&Mycodetitle"> 代码如下:

 
<%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 "

您关注的站点："
        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 " "&C_arrDomain(C_i)&" |"
            C_DomainList=C_DomainList&C_arrDomain(C_i)&"|"
            next
        Response.COOKIEs("jb51")("C_DomainList")=C_DomainList
        Response.COOKIEs("jb51").Expires=Date+30
        Response.write "清除记录

"
End If
End Sub

演示页面:http://tools.jb51.net/whois.asp