<%
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>