Request和Response对象都有一组Cookie。Request.cookie集合是一系列Cookie，从客户端与HTTP Request一起发送到Web服务器。反过来，如果你希望把Cookie发送到客户机，就可以使用Response.cookie。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