login.htm
% @ Language=javascript %>
%
if (Request.Cookies("SavedLogin").HasKeys) {
Response.Redirect("checklogin.asp?Cookie=1")
}
%>
html>
head>
title>精彩春风之登录页面/title>
/head>
body>
我要登录随风起舞
FORM ACTION="CheckLogin.asp" METHOD="POST">
电子邮件: INPUT TYPE="Text" NAME="email" SIZE="40">BR>
口令: INPUT TYPE="Password" NAME="Password" SIZE="40">P>
INPUT TYPE="Checkbox" NAME="SaveLogin"> 要把登录内容存为Cookie吗?P>
INPUT TYPE="Submit" VALUE="登录">INPUT TYPE="RESET">
/FORM>
checklogin.asp
%
dim strEmail
if Request.QueryString("Cookie") = 1 then
strEMail = Request.Cookies("SavedLogin")("Email")
else
strEMail = Request.Form("email")
end if
dim bLoginSaved
if Request.Form("SaveLogin") = "on" then
Response.Cookies("SavedLogin")("EMail") = Request("email")
Response.Cookies("SavedLogin")("pw") = Request("password")
Response.Cookies("SavedLogin").Expires = Date + 30
bLoginSaved = True
else
bLoginSaved = False
end if
%>
html>
head>
title>精彩春风之登录验证/title>
/head>
body>
% if bLoginSaved then %>
将登录信息保存到Cookie里去HR>
% end if %>
欢迎光临随风起舞!P>
% if Request.QueryString("Cookie") = 1 then %>
保存成功!P>
% end if %>
请确认您的电子邮件: % = strEMail %>
/body>/html>
