login.htm
请注册登录随风起舞
FORM ACTION="checklogin.asp" METHOD="POST">
    电子邮件: input TYPE="Text" NAME="email" SIZE="40">
    密码: input TYPE="Password" NAME="Password" SIZE="40">
    input TYPE="Checkbox" NAME="SaveLogin" value="ON">您要将注册内容保存为Cookie吗?
    input TYPE="Submit" VALUE="登录">input TYPE="RESET">
/FORM>

checklogin.asp
%
dim bLoginSaved
if Request("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 %>
    将注册内容保存到CookieHR>
% end if %>
欢迎光临随风起舞!P>
请确认您的电子邮件: % = Request("email") %>
/body>/html>