我要评论< %@ 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]
发表评论