内容简介:如何检测用户第一次访问我的网站并显示友好信息?
< %@ 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]
以上所述就是小编给大家介绍的《如何检测用户第一次访问我的网站并显示友好信息?》,希望对大家有所帮助,如果大家有任何疑问请给我留言,小编会及时回复大家的。在此也非常感谢大家对 码农网 的支持!
猜你喜欢:本站部分资源来源于网络,本站转载出于传递更多信息之目的,版权归原作者或者来源机构所有,如转载稿涉及版权问题,请联系我们。
实战移动互联网营销
江礼坤 / 机械工业出版社 / 2016-1 / 79.00
移动互联网的兴起,又为企业带来了新的挑战与机遇!越来越多的人,看到了移动互联网的价值与前景,但是在具体操作时,移动互联网具体如何玩?企业如何向移动互联网转型?如何通过移动互联网做营销?等等一系列问题,接踵而至。虽然目前相关的资料和文章很多,但是都过于零散,让人看完后,还是无从下手。而本书旨在成为移动互联网营销领域标准的工具书、参考书,为大家呈现一个系统、全面的移动互联网营销体系。让大家从思维模式到......一起来看看 《实战移动互联网营销》 这本书的介绍吧!