• 分类

  • 重置

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

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