<% '************************************** '** login.asp '** '** 文件说明:登陆页面 '** 修改日期:2005-11-02 '** 作者:Howlion '** Email:howlion@163.com '************************************** select case Request.QueryString("act") case "checkpassword" call checkpassword() case "logout" call logout() case else pagename="管理登陆" call pagehead() call bodySkin() sub pageContent() loginForm() end sub end select function loginForm() '//////// 以下显示页面主体 %>
管理员名称:
管理密码:
自动登陆:
是  ( 若是在公用的电脑上,请不要选择此项 )
<% end function sub checkpassword() '//////// 进行密码验证 dim adminpass adminpass = MD5(trim(request.form("adminpass"))) if adminpass = password then session("SranM_login") = true if request.form("auto_login")="auto_login" then Response.Cookies("SranM_mypassword") = adminpass Response.Cookies("SranM_mypassword").expires=date+365 end if response.redirect "index.asp" else errinfo="
  • 密码错误!请重新输入。" call showError() end if end sub sub logout() '//////// 退出登陆 session("SranM_login") = false Response.Cookies("SranM_mypassword") = "" Response.Redirect "index.asp" end sub %>