login.asp

教师评估系统

<!-- #include file="Cls.asp" -->
<!-- #include file="inc/MD5.asp" -->
<%
if Request.ServerVariables("Request_method") = "POST" then

if Cache("LoginVerifyCode") then
if ChkNumeric(Request.Form("VerifyCode"))<>Int(Session("VerifyCode")) then Alert("验证码错误")
end if

ReturnUrl=Lcase(Request.Form("ReturnUrl"))
UserName=HTMLEncode(Request.Form("UserName"))
Userpass=md5(Trim(Request.Form("Userpass")))
CookieDate=ChkNumeric(Request.Form("CookieDate"))

if UserName=empty then Alert("请输入用户名")

if IsNumeric(UserName) then
sql="select UserName from [WxUsers] where UserIM like '"&username&"%'"
set Rs=Conn.Execute(sql)
if Rs.Eof then
Rs.Close
else
Username=Rs(0)
Rs.Close
end if
end if

Set Rs=Conn.Execute("select Userpass,UserStatus,Username from [WxUsers] where UserName='"&UserName&"'")
if Rs.Eof then Alert("此用户名还未注册")
if Rs(1)=0 then Alert("您的帐号尚未激活")

if Len(Rs(0))<16 then
if Request.Form("Userpass")<>Rs(0) then Alert("您输入的密码错误")
Conn.Execute("update [WxUsers] set Userpass='"&Userpass&"' where UserName='"&UserName&"'")
elseif Len(Rs(0))=16 then
mdfive=16
if md5(Request.Form("UserPass"))<>Rs(0) then Alert("您输入的密码错误")
Conn.Execute("update [WxUsers] set Userpass='"&Userpass&"' where UserName='"&UserName&"'")
else
if UserPass<>Rs(0) then Alert("您输入的密码错误")
end if

Username=Rs(2)

if ChkNumeric(Request.Form("Eremite"))="1" then
Eremite="1"
else
Eremite="0"
end if
Select case CookieDate
case 2:Ex=30
case 3:Ex=365
case Else:Ex=1
end Select
CookiesAdd "UserName",UserName,Ex
CookiesAdd "Userpass",Userpass,Ex
CookiesAdd "Eremite",Eremite,Ex

Conn.Execute("update [WxUsers] set UserDegree=UserDegree+1,UserLandTime="&SqlNowString&",UserLastIP='"&Request.ServerVariables("REMOTE_ADDR")&"' where Username='"&UserName&"'")

Session("VerifyCode")=""
if ReturnUrl="" Or instr(ReturnUrl,"login.asp")<>0 Then ReturnUrl=Cache("SiteUrl")&"Default.asp"
Response.write "<script language=javascript>top.location.href='"&ReturnUrl&"'</script>"
end if

select case Request("menu")
case ""
top "登录论坛",false
%>
<iframe class="frame" src="" name="Temp"></iframe>
<form method="post" name="UserLogin" action="Login.asp" onsubmit="return VerifyLogin(this);" target="Temp">
<input type="hidden" value="<%=Request.ServerVariables("HTTP_REFERER")%>" name="ReturnUrl" />
<div class="tc b cb">
<div class="fl r w3 si">用户名</div>
<div class="fl si"><input size="25" name="UserName" value="" /><span id="chkUser"></span></div>
</div>
<div class="tc b cb">
<div class="fl r w3 si">密码</div>
<div class="fl si"><input type="password" size="27" name="Userpass" value="" /><span id="chkPass"></span></div>
</div>
<%if Cache("LoginVerifyCode") then%>
<div class="tc b cb">
<div class="fl r w3 si">验证码</div>
<div class="fl si"><%=WriteVerifyCode%><span id="chkCode"></span></div>
</div>
<%end if%>
<div class="tc b cb">
<div class="fl r w3 si">Cookie保存时间</div>
<div class="fl si"><input type="radio" name="CookieDate" value="0" />不保存 
<input type="radio" name="CookieDate" value="1" checked="checked" />一天 
<input type="radio" name="CookieDate" value="2" />一月 
<input type="radio" name="CookieDate" value="3" />一年</div>
</div>
<div class="tc b cb">
<div class="fl r w3 si">隐身</div>
<div class="fl si"><input type="radio" name="eremite" value="0" checked="checked" />正常登录 
<input type="radio" name="eremite" value="1" />隐身登录</div>
</div>
<div class="tc ac"><input type="submit" id="submit" value="登录" /></div>
</form>
<%
case "out"
Conn.Execute("delete from [WxUsersOnline] where UserName='"&CookieUserName&"' or ip='"&Request.ServerVariables("REMOTE_ADDR")&"'")
CleanCookies
Response.write "<script language=javascript>top.location.href='"&Cache("SiteUrl")&"Default.asp'</script>"
HtmlEnd
end select

CloseDataBase
%>