login.htm
<% @ Language=javascript %>
<%
if (Request.Cookies("SavedLogin").HasKeys) {
Response.Redirect("checklogin.asp?Cookie=1")
}
%>
我要登录随风起舞
电子邮件:
口令:
登录
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
%>
<% if bLoginSaved then %>
将登录信息保存到Cookie里去
<% end if %>
欢迎光临随风起舞!
<% if Request.QueryString("Cookie") = 1 then %>
<% end if %>