5_10b.asp

来自「《asp网页设计》作者沈才梁源代码,共十章」· ASP 代码 · 共 23 行

<%
Option Explicit
Dim SName,SPass,CookieDate
SName=Trim(Request("UserName"))'接收用户名文本框的内容，UserName为文本框的名称
SPass=Trim(Request("Password"))'接收密码文本框的内容，Password为密码框的名称
CookieDate=Cint(Request("CookieDate"))' Cookies的保存周期
'判断用户名和密码是否正确的代码省略……
'如果用户名和密码正确，则将用户名信息以Cookies的形式保存到硬盘中
'以便下次访问5-8.asp页面时可以调用，显示上次登录的用户名
Response.Cookies("UserName")=SName   '设置Cookies信息
select case CookieDate      '设置Cookies保存周期
  case 0
  	Response.Cookies("UserName").Expires=Date-1  	'马上过期
  case 1
     	Response.Cookies("UserName").Expires=Date+1   	'保存一天
  case 2
  	Response.Cookies("UserName").Expires=Date+31   	'保存一个月
  case 3
  	Response.Cookies("UserName").Expires=Date+365   '保存一年
end select
Response.Write Sname & "登录成功！"  
%>