login.asp

进入后台

<!--#include file="config.asp"-->
<!--#include file="md5.asp"-->
<%comeurl=Request.ServerVariables("HTTP_REFERER")
if request("action")="go" then
if comeurl="" Then ShowError("请在页面里登录")
xyluser=request.form("xyluser")
xylpwd=md5(request.form("xylpwd"))
if xyluser="" or xylpwd="" Then ShowError("用户名和密码不可以为空")
rs.open "select id,password,lastdate,logins,lastip,sitejob,sitemoney,isclose from user where username='"&xyluser&"'",conn,1,3
	If Rs.eof and Rs.bof Then ShowError("你的用户名不存在")
if rs("password")<>xylpwd Then ShowError("你的密码错误")
if rs("isclose")=1 Then ShowError("你的帐户被禁用，请与管理员联系")
if datediff("s",rs("lastdate"),now())<60 then ShowError("本站禁止一分钟内连续登录，请稍候再登录")
rs("logins")=rs("logins")+1
rs("sitemoney")=rs("sitemoney")+1
rs("lastdate")=now()
rs("lastip")=Request.ServerVariables("REMOTE_ADDR")
rs.update
session("sitejob")=rs("sitejob")
session("xyluser")=xyluser
session("xyluserid")=rs("id")
rs.Close:Set rs = Nothing
call CloseConn
else
if session("xyluserid")<>"" then
conn.execute ("delete from online where userid="&session("xyluserid")&"") 
end if
session("xyluser")=""
session("sitejob")=""
session("xyluserid")=""
end if
if comeurl="" then comeurl="index.asp"
response.redirect comeurl%>