<% Response.Buffer=True %>
<html>
<head>
<title>Cookies综合示例</title>
</head>
<body>
<%
dim varNumber
varNumber=Request.Cookies("Number")
if varNumber="" then
varNumber=1
else
varNumber=varNumber+1
end if
response.write"您是第"&varNumber&"次访问本站"
response.Cookies("Number")=varNumber
response.Cookies("Number").Expires=#2020-12-31#
%>
</body>
</html>