📄 例5－11.txt
字号:
<html>
<head><title>Cookie应用实例</title></head>
<body>
<form action="5-11.asp" method=post>
用户名：<input type=text name="name" size=10><br>
密码：<input type=password name="pass" size=8><br>
你的爱好<hr>
唱歌:<input type=checkbox name="chkuser" value="sing">
跳舞:<input type=checkbox name="chkuser" value="dance">
运动:<input type=checkbox name="chkuser" value="sport">
<p><input type=submit value="存储选择">
</form>
</body>
</html>
当单击“存储选择”按钮后执行如下5-11.asp程序：
<%name=Request.Form("name")
password=Request.Form("pass")
'读取用户名和口令
i=1
for counter=1 to Request.Form("chkuser").count
redim preserve userprefs(i)
'定义一个可调数组userprefs
userprefs(i ?1)=Request.Form("chkuser")(counter)
'读取用户的其他信息并存入数组userprefs中
i=i+1
next
Response.Cookies("username")=name
'设置名为username的Cookie
Response.Cookies("username").Expires=#december 31,2005#
'设置username Cookie的过期时间
Response.Cookies("pass")=password
Response.Cookies("pass").Expires=#december 31,2005#
for counter=1 to i-1
strkeyname="pref" & cstr(counter)
Response.Cookies("userprefs")(strkeyname)=userprefs(counter-1)
next
'设置名为userprefs且带有子关键字的Cookie
Response.Cookies("userprefs").Expires=#december 31,2005#
'设置userprefs Cookie的过期时间
%>
<p>你的用户名为：<%=Request.Cookies("username")%>
<p>你的密码为：<%=Request.Cookies("pass")%>
<p>你的选择为</p>
<%for each key in Request.Cookies("userprefs")
Response.Write(key & "的值是:")
Response.Write(Request.Cookies("userprefs")(key) ) & "<p>"
next %>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -