如何检测用户第一次访问我的网站并显示友好信息?
来源:asp之家 时间:2009-11-25 20:33:00
使用cookie来判断来访者身份,是否是首次登陆, asp代码实例如下:
< %@ LANGUAGE="VBSCRIPT" % >
< %
RequestName = Request.Form("Name")
RequestLeaveMeAlone = Request.Form("LeaveMeAlone")
If RequestName < >"" or RequestLeaveMeAlone < >"" then
' 在同一个页面中检查表单变量
Response.Cookies("MySiteVisitorName") = RequestName
Response.Cookies("MySiteVisitorName").Expires = #January 01, 2008#
Response.Cookies("MySiteLeaveMeAlone") = RequestLeaveMeAlone
Response.Cookies("MySiteLeaveMeAlone").Expires = #January 01, 2008#
' 如果表单变量存在,就创建cookie,并设置到期时间
End if
VisitorName = request.cookies("MySiteVisitorName")
LeaveMeAlone = request.cookies("MySiteLeaveMeAlone")
' 读取cookie
If VisitorName ="" and LeaveMeAlone ="" then
' 如果用户机子上不存在该cookie,就创建一个表单询问相关信息
% >
< HTML >
< HEAD >
<title>Aspxhome.com欢迎你!</title>
< /HEAD >
< body bgcolor="#ccffff" text="black" link="navy" vlink="purple" >
< DIV ALIGN="CENTER" >
< form action="index.asp" method="POST" >
< H2 >欢迎光临asp之家< /H2 >
您的网上昵称是< input type="text" name="name" > (您可以选择不回答而直接点击"发送"按钮)
< br >< br >
< input type="hidden" name="LeaveMeAlone" value="x" >
< input type="submit" value="发送" >
< /FORM >
< /DIV >
< /BODY >
< %
End if
If VisitorName < > "" then
Response.write "欢迎您," & VisitorName & "! 这儿就是您的家!"
' 如果cookie和用户名都已存在,则显示一个欢迎页面
End if
' 结束其余代码
% >