< %@ LANGUAGE="VBSCRIPT" % > < % Survey=Request.Cookies("KensSurvey") If Survey ="" then Response.Cookies("KensSurvey")="x" Response.Cookies("KensSurvey").Expires=#January 01, 2010# Response.Redirect "survey.asp" Else 'rest of the page End if % > 好,下面开始从头讨论上面的代码。
< %@ 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, 2010# Response.Cookies("MySiteLeaveMeAlone") = RequestLeaveMeAlone Response.Cookies("MySiteLeaveMeAlone").Expires = #January 01, 2010# End if VisitorName = request.cookies("MySiteVisitorName") LeaveMeAlone = request.cookies("MySiteLeaveMeAlone")
If VisitorName ="" and LeaveMeAlone ="" then % > < HTML > < HEAD > < /HEAD > < body bgcolor="#ccffff" text="black" link="navy" vlink="purple" > < DIV ALIGN="CENTER" > < form action="index.asp" method="POST" > < H2 >Let's be friends< /H2 > What's your name (leave blank and hit the Submit button if you don't want us to know)? < input type="text" name="name" >< BR >< BR > < input type="hidden" name="LeaveMeAlone" value="x" > < input type="submit" value="Submit" > < /FORM > < /DIV > < /BODY > < % End if If VisitorName < > "" then Response.write "Hi, " & VisitorName & "! I hope you are having a great day!" End if 'rest of the page % > 好,现在来看看上面的代码实现执行了什么。首先,设置页面。然后,检查表单变量(在同一个页面中)。如果表单变量存 在,就创建cookie,并设置到期时间。
< %@ 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, 2010# Response.Cookies("MySiteLeaveMeAlone") = RequestLeaveMeAlone Response.Cookies("MySiteLeaveMeAlone").Expires = #January 01, 2010# End if
If VisitorName ="" and LeaveMeAlone ="" then % > < HTML > < HEAD > < /HEAD > < body bgcolor="#ccffff" text="black" link="navy" vlink="purple" > < DIV ALIGN="CENTER" > < form action="index.asp" method="POST" > < H2 >Let's be friends< /H2 > What's your name (leave blank and hit the Submit button if you don't want us to know)? < input type="text" name="name" >< br >< br > < input type="hidden" name="LeaveMeAlone" value="x" > < input type="submit" value="Submit" > < /FORM > < /DIV > < /BODY > < % End if 如果cookie已经存在,并且用户名字存在,就显示给访问者一个欢迎界面,然后执行其余的代码。
If VisitorName < > "" then Response.write "Hi, " & VisitorName & "! I hope you are having a great day!" End if 'rest of the page % > 尽管上面的这个例子很简单,但可以从中扩展许多富有创造力的应用。你可以在表单中加入许多功能,以便定制化web站点。 你还可以让访问者定制网站的色彩、字体,以至于其他web元素。有可能的话,你可以询问访问者的生日,当访问者在那一天来访 时,你就可以显示“生日快乐”的信息给他。