cookie应用实例

<% Dim strID Dim strPWD strID = Request.Form("txtID") strPWD = Request.Form("txtPWD") If Len(strID) > 0 and Len(strPWD) > 0 Then Response.Cookies("userID") = strID Response.Cookies("userPWD") = strPWD Response.Cookies("userID").Expires = Date + 30 Response.Cookies("userPWD").Expires = Date + 30 Response.Write "你输入的用户ID是：" & strID Response.Write "
你输入的用户密码是：" & strPWD Response.Write "
系统已保存你的本次登录信息" Else Response.Write "请输入完整的用户名和密码" End If %>