asp的cookie对网上的版本修正 不指定

Else , 2007/06/13 11:44 , 积累些,自己也写些 , Comments(1) , Reads(3090) , Via Original

<%
dim Num

Num=Request.Cookies("aaVisit_num")
if Request.Cookies("aaVisit_num")<>"" then
 Num=Num+1
 Response.write "您已是第" & Num & "次访问本站点了。"
else
 Response.write "欢迎您首次访问本站。"
 Num=1
end if
Response.Cookies("aaVisit_num")=Num
%>
Tags:
elsee
2007/06/13 13:01
Response.Cookies("aaVisit_num").Expires=DateAdd("m",60,now())   加一个cookie时间
Pages: 1/1 First page 1 Final page
Add a comment

Nickname

Site URI

Email

Enable HTML Enable UBB Enable Emots Hidden Remember [Login] [Register]