< %@ 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]
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
更新日志
- 【小提琴】陈立新《思乡曲》2004[FLAC+CUE]
- 《战地》新作明年初大规模测试!EA已内部测试一年
- 《GTAOL》PC版时隔多年更新反作弊!小助手宣布跑路
- EA称AI是其业务核心!能提高开发效率、节约成本
- 卫华.1990-太阳升【BMG】【WAV+CUE】
- 呼吸乐队.1992-THEBREATHING【深飞】【WAV+CUE】
- 李玟.2008-1994-2008豪华典藏精选2CD【SONY】【WAV+CUE】
- 《张学友 再现歌神的光辉岁月 梦想成真 2CD》[WAV/分轨][1.2GB]
- 《海来阿木 高音测试王》[WAV+CUE][500MB]
- 《许巍 歌声给你生命的力量 珍藏许巍 3CD》[WAV/分轨][2GB]
- 《直到黎明重制版》配置要求推荐
- 《赛博朋克2077》2.13版本更新内容一览
- 《神话时代:重述版》评测:粉丝们的朝花夕拾
- 战锤40K星际战士2先锋职业介绍|先锋职业技能效果一览
- 战锤40K星际战士2重装职业介绍|重装职业技能效果一览