web课件并附有习题练习还有实例详细的讲解了WEB的各种开发过程是学习 的好资料
源代码在线查看: 例5-11.txt
Cookie应用实例
用户名:
密码:
你的爱好
唱歌:
跳舞:
运动:
当单击“存储选择”按钮后执行如下5-11.asp程序:
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的过期时间
%>
你的用户名为:
你的密码为:
你的选择为
Response.Write(key & "的值是:")
Response.Write(Request.Cookies("userprefs")(key) ) & ""
next %>