如何检测用户第一次访问我的网站并显示友好信

NEWSZW_HZH_BEGIN-->

< %@ 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> 随风起舞欢迎你 !</title>

  < /head >
  < body bgcolor="#ccffff" text="black" link="navy" vlink="purple" >
  < DIV ALIGN="CENTER" >
  < form action="index.asp" method="POST" >
  < H2 > 欢迎光临精彩春风 < /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
' 结束其余代码 .

% >

[1]