案例:ASP/ADO案例     状态:不可编辑再运行    进入竖版
 运行结果 
x
 
1
<%
2
dim numvisits
3
response.cookies("NumVisits").Expires=date+365 
4
numvisits=request.cookies("NumVisits")
5
6
if numvisits="" then
7
   response.cookies("NumVisits")=1
8
   response.write("欢迎!这是您第一次访问本页面。")
9
else
10
   response.cookies("NumVisits")=numvisits+1
11
   response.write("之前,您已经访问过本页面 ")
12
   response.write(numvisits & " 次。")
13
end if
14
%>
15
<html>
16
<body>
17
</body>
18
</html>