5-11.asp

web课件并附有习题练习还有实例详细的讲解了WEB的各种开发过程是学习 的好资料

<%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 %>