<%
Act = Request.QueryString("act")
If Act = "logout" Then
Add_Session "loginid",""
Add_Session "loginuser",""
Add_Session "loginname",""
Add_Session "loginpower",""
End If
If Act = "login" Then
CheckPost
loginuser=TextEncode(Request.Form("loginuser"))
loginpwd=TextEncode(Request.Form("loginpwd"))
logincode=Request.Form("logincode")
If loginuser="" Then Response.Write "1":Conn.Close:Set Conn=Nothing:Response.End
If loginpwd="" Then Response.Write "2":Conn.Close:Set Conn=Nothing:Response.End
If logincode<>Session("zengscode") Then Response.Write "3":Conn.Close:Set Conn=Nothing:Response.End
Set Rs=Server.CreateObject("ADODB.RecordSet")
Rs.Open "Select id,loginuser,loginpwd,loginstate,loginname,loginlasttime,loginlastip,loginthistime,loginthisip,loginpower,logincount From login Where loginuser='"&loginuser&"'",conn,1,3
If Rs.Recordcount=0 Then Response.Write "4":Rs.Close:Set Rs=Nothing:Conn.Close:Set Conn=Nothing:Response.End
If Rs(2)<>MD5(loginpwd) Then Response.Write "5":Rs.Close:Set Rs=Nothing:Conn.Close:Set Conn=Nothing:Response.End
If Rs(3)<1 Then Response.Write "6":Rs.Close:Set Rs=Nothing:Conn.Close:Set Conn=Nothing:Response.End
If Conn.Execute("Select count(powerstate) From power Where id="&Rs(9))(0)=0 Then Response.Write "6":Rs.Close:Set Rs=Nothing:Conn.Close:Set Conn=Nothing:Response.End
If Conn.Execute("Select powerstate From power Where id="&Rs(9))(0)=0 Then Response.Write "6":Rs.Close:Set Rs=Nothing:Conn.Close:Set Conn=Nothing:Response.End
Session("zengscode")=""
Rs(5)=Rs(7):Rs(6)=Rs(8):Rs(7)=Now():Rs(8)=GetIp:Rs(10)=Rs(10)+1:Rs.Update
Add_Session "loginid",Rs(0)
Add_Session "loginuser",Rs(1)
Add_Session "loginname",Rs(4)
Add_Session "loginpower",Rs(9)
Response.Write "7":Rs.Close:Set Rs=Nothing:Conn.Close:Set Conn=Nothing:Response.End
Response.End
End If
%>
<%=webname%> - 网站后台管理