案例分析：
◆ 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 ("＜font color=blue＞")
Response.write cookie & ".("&key&")" & "=" & Request.Cookies(cookie)(key)
Response.write ("＜/font＞
")
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
%＞
＜HTML＞
＜HEAD＞ ＜/HEAD＞
＜body＞
＜DIV ALIGN="CENTER" ＞
＜Form action="check.asp" method="POST"＞
Bgcolor: ＜input type="text" name="bgcolor"＞＜BR＞
Fgcolor: ＜input type="text" name="fgcolor"＞＜BR＞
Password:＜input type="password" name="pwd"＞＜BR＞
＜input type="submit" value="Submit"＞
＜/Form＞
＜/DIV＞
＜/BODY＞
＜%
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("＜body bgcolor="&bgcolor&"＞＜font color="&fgcolor&"＞")%＞
你的密码是：
＜%response.write(" "&pwd&" ")%＞
