<%
dim numvisits
response.cookies("NumVisits").Expires=date+365
if Request.Form("select")<>"" then
response.cookies("NumVisits")=0
end if
numvisits=request.cookies("NumVisits")
if numvisits=0 then
response.cookies("NumVisits")=1
response.write("欢迎！这是您第一次访问本页面。")
else
response.cookies("NumVisits")=numvisits+1
response.write("之前，您已经访问过本页面 ")
response.write(numvisits & " 次。")
end if
%>
<body>
<form id="form1" name="form1" method="post" action="">
<input type="radio" name="select" value="select">清除
<input type="submit" value="开始">
</form>
</body>
