<%
'**************************************
'** 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
%>