📄 login.asp

📁 网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。
💻 ASP
字号:
<!--#include file="inc/Conn.asp"-->
<!--#include file="Inc/Cls.Common.asp"-->
<!--#include file="Inc/Cls.Templates.asp"-->
<!--#include file="API/HiAPI/Class_API.asp"-->
<%
  Dim Filtration,i,LoginDB,UserName,PassWord,Code,LastConsumeTime,Flag,Cookie,API,strUrl,turl,NowLoginTime
  Filtration = Ucase("GETPASS.ASP|LOGIN.ASP|REG.ASP")
  ComeUrl = WRMPS.CheckStr(Request("ComeUrl"),0)
  If ComeUrl = "" Then ComeUrl = WRMPS.URLDecode(Request.ServerVariables("HTTP_REFERER"))
  If ComeUrl <> "" Then ComeUrl = WRMPS.GetReplace(ComeUrl,"$","&")
  Filtration = Split(Filtration,"|")
  For i = 0 To UBOUND(Filtration)
    If Instr(Ucase(ComeUrl),Filtration(i)) > 0 Then ComeUrl = "Member/"
  Next
  If ComeUrl = "" Or Instr(Lcase(ComeUrl),"frame") > 0 Then ComeUrl = "Member/"

Call DBConnBegin()
Select Case Ucase(WRMPS.CheckStr(Request("Action"),0))
  Case "LOGOUT"
	'API整合接口
	If API_Enable Then 
	  Set API = New API_WRMPS
	  API.LoadXmlFile True
	  API.UserName=MemName
	  Call API.ProcessMultiPing("logout")
	  Set API=Nothing
	  For i=0 To UBound(aUrls)
	    strUrl=Lcase(aUrls(i))
	    If Left(strUrl,7)="http://" Then
	      Response.Write "<script language=JAVASCRIPT src="""&strUrl&"?syskey="&MD5(1,MemName&API_Key)&"&username="&MemName&"""></script>"																
	    End If
	  Next
	End If
    Call WRUser.Logout()
		
	If WRMPS.CheckStr(UCase(Request("Login")),0) = "FRAMELOGIN" Then
	  Call ClassEnd()
      Response.Write "Please wait ...<meta http-equiv=refresh content='1;URL=?Action=FrameLogin'>"
	  Response.end
	Else
	  If ComeUrl = "Member/" Then ComeUrl = WR_Setting(3)
      Response.Write "Please wait ...<meta http-equiv=refresh content='1;URL="&WRMPS.URLDecode(ComeUrl)&"'>"
	  Response.end
	  Call ClassEnd()
	End If

  Case "LOG"
	Cookie = Request.Form("Cookie")
	If Cookie = "" Then Cookie = 0
    UserName = WRMPS.CheckStr(Request.Form("UserName"),0)
    If UserName = "" Then
	  If WRMPS.CheckStr(UCase(Request.Form("Login")),0) = "FRAMELOGIN" Or WRMPS.CheckStr(UCase(Request.Form("Login")),0) = "AJAX" Then
		Response.Write "<script>alert('请输入登录用户名');history.go(-1);</script>"
		Response.End
	  Else
	    Call WRMPS.ErrView("·请输入登录用户名<meta http-equiv=refresh content='1;URL=login.asp'>",0)
	  End If
	End If
    PassWord = WRMPS.CheckStr(Request.Form("PassWord"),0)
    If PassWord = "" Then
	  If WRMPS.CheckStr(UCase(Request.Form("Login")),0) = "FRAMELOGIN" Or WRMPS.CheckStr(UCase(Request.Form("Login")),0) = "AJAX" Then
		Response.Write "<script>alert('请输入登录密码');history.go(-1);</script>"
		Response.End
	  Else
	    Call WRMPS.ErrView("·请输入登录密码<meta http-equiv=refresh content='1;URL=login.asp'>",0)
	  End If
	End If
	If Instr(UserName,"@") > 0 and Instr(UserName,".") > 0 Then
	  LoginDB = " WM_Email = '"&UserName&"'"
	Else
	  LoginDB = " WM_UserName = '"&UserName&"'"
	End If
	Code = WRMPS.CheckStr(Request.form("Code"),0)
	If WRMPS.CheckCode("Login",1) Or (WRMPS.CheckCode("LoginErr",1) And WRMPS.GetCookies("LoginErr") >= 3) Then
	  If Code <> WRMPS.GetCookies("Code") Then
	    If WRMPS.CheckStr(UCase(Request.Form("Login")),0) = "FRAMELOGIN" Or WRMPS.CheckStr(UCase(Request.Form("Login")),0) = "AJAX" Then
		  Response.Write "<script>alert('验证码不正确');history.go(-1);</script>"
		  Response.End
	    Else
	      Call WRMPS.ErrView("·验证码不正确<meta http-equiv=refresh content='1;URL=login.asp'>",0)
	    End If
	  End If
	End If
    WRMPS.DelCookies "Code"

	Set Rs = server.createobject("adodb.recordset")
	Rs.Open "Select WM_UserName,WM_PassWord,WM_ID,WM_Key,WM_GroupID,WM_Flag,WM_LastConsumeTime From WM_Member Where"&LoginDB,Conn,1,1
	If Not Rs.Eof Then
      If Rs(1) <> MD5(2,PassWord) Then
        If WRMPS.CheckCode("LoginErr",1) Then
	        If IsEmpty(WRMPS.GetCookies("LoginErr")) Then WRMPS.SCookies "LoginErr",0,1
            WRMPS.SCookies "LoginErr",WRMPS.GetCookies("LoginErr")+1,1
		End If
	    If WRMPS.CheckStr(UCase(Request.Form("Login")),0) = "FRAMELOGIN" Or WRMPS.CheckStr(UCase(Request.Form("Login")),0) = "AJAX" Then
		  Response.Write "<script>alert('用户密码输入不正确');history.go(-1);</script>"
		  Response.End
	    Else
	      Call WRMPS.ErrView("·用户密码输入不正确<meta http-equiv=refresh content='1;URL=login.asp'>",0)
	    End If
	  Else
	    If WRMPS.CheckCode("LoginErr",1) Then WRMPS.DelCookies "LoginErr"
	    Select Case Rs(3)
		  Case 0
	        If WRMPS.CheckStr(UCase(Request.Form("Login")),0) = "FRAMELOGIN" Or WRMPS.CheckStr(UCase(Request.Form("Login")),0) = "AJAX" Then
		      Response.Write "<script>alert('此用户还没有通过管理员审核');history.go(-1);</script>"
		      Response.End
	        Else
	          Call WRMPS.ErrView("·此用户还没有通过管理员审核<meta http-equiv=refresh content='1;URL=login.asp'>",0)
	        End If
		  Case 2
	        If WRMPS.CheckStr(UCase(Request.Form("Login")),0) = "FRAMELOGIN" Or WRMPS.CheckStr(UCase(Request.Form("Login")),0) = "AJAX" Then
		      Response.Write "<script>alert('此用户已被锁定');history.go(-1);</script>"
		      Response.End
	        Else
	          Call WRMPS.ErrView("·此用户已被锁定<meta http-equiv=refresh content='1;URL=login.asp'>",0)
	        End If
		End Select
		LastConsumeTime = Rs(6)
	    UserName = Rs(0)
		Flag = Rs(5)
		'API整合接口
		If API_Enable Then 
				Set API = New API_WRMPS
				API.LoadXmlFile True
				API.UserName=UserName
				API.PassWord=PassWord
				API.CookieDate=Cookie
				Call API.ProcessMultiPing("login")
				Set API=Nothing
				For i=0 To UBound(aUrls)
					strUrl=Lcase(aUrls(i))
					If Left(strUrl,7)="http://" Then
					  Response.Write "<script language=JAVASCRIPT src="""&strUrl&"?syskey="&MD5(1,UserName&API_Key)&"&username="&UserName&"&password="&MD5(1,PassWord)&"&savecookie="&Cookie&"""></script>"																
					End If
				Next
		End If
		If Now() > Cdate(LastConsumeTime) + Int(Split(Split(Flag,"§")(0),"|")(2)) Then
		   Dim CountOut,Integral
	       Integral = Int(Split(Split(Flag,"§")(0),"|")(3))
	       CountOut = Int(Split(Split(Flag,"§")(0),"|")(4))
		   Call WRDB.SaveConsume(1,UserName,0,CountOut,Integral,0,"会员登录")
           Conn.Execute("Update WM_Member Set WM_LastConsumeTime = "&ConnTime&" where WM_UserName='"&UserName&"'")
		End If
		Call WRUser.Login(Cookie,Rs(0),Rs(2),Rs(4),Flag,WRMPS.GetCache("FlagTime"),MD5(2,PassWord))
	  End If
    Else
	  If WRMPS.CheckStr(UCase(Request.Form("Login")),0) = "FRAMELOGIN" Or WRMPS.CheckStr(UCase(Request.Form("Login")),0) = "AJAX" Then
		Response.Write "<script>alert('用户不存在');history.go(-1);</script>"
		Response.End
	  Else
	    Call WRMPS.ErrView("·用户不存在<meta http-equiv=refresh content='1;URL=login.asp'>",0)
	  End If
    End If
    Rs.Close
    Set Rs = Nothing
    Conn.Execute("Update WM_Member Set WM_LastLoginTime = WM_NowLoginTime,WM_NowLoginTime = "&ConnTime&",WM_LastIP=WM_NowIP,WM_NowIP='"&Request.ServerVariables("REMOTE_ADDR")&"',WM_LoginNum=WM_LoginNum+1 where WM_UserName='"&UserName&"'")
	Select Case WRMPS.CheckStr(UCase(Request.Form("Login")),0)
	  Case "FRAMELOGIN"
	    Response.Redirect "?Action=FrameLogin"
	  Case "AJAX"
	    If ComeUrl <> "" Then
		  Response.Write "<script>function Close(){parent.closeWithIframe();parent.location='"&WRMPS.URLDecode(ComeUrl)&"'}Close()</script>"
		Else
		  Response.Write "<script>function Close(){parent.closeWithIframe();parent.location.reload()}Close()</script>"
		End If
	  Case Else
	    Call WRMPS.ErrView("·欢迎回来，请稍侯...<meta http-equiv=refresh content='1;URL="&WRMPS.URLDecode(ComeUrl)&"'>",1)
	End Select
  
  Case "FRAMELOGIN"
	Call WRMPS.FsoBegin()
	If WRUser.ChkLogin Then
	  TempStr = WRTemp.SiteTemplates(1,0,11,0)
      TempStr = WRUser.TempUser(TempStr,MemName)
	  TempStr = WRTemp.SiteLabel(TempStr)
	Else
	  TempStr = WRTemp.SiteTemplates(1,0,10,0)
	  TempStr = WRMPS.GetReplace(TempStr,"{$User}",WRMPS.GetCookies("MemberCache"))
      If WRMPS.CheckCode("LoginErr",1) And WRMPS.GetCookies("LoginErr") >= 3 Then 
	    TempStr = WRMPS.GetReplace(TempStr,"{$IDCode}","")
	  Else
	    If Instr(TempStr,"{$IDCode}") > 0 Then
	      TempStr = WRMPS.GetReplace(TempStr,"{$IsIDCode}",WRMPS.CheckCode("Login",1))
	      If WRMPS.CheckCode("Login",1) Then
		    TempStr = WRMPS.GetReplace(TempStr,"{$IDCode}","")
	      Else
	  	    TempStr = WRMPS.GetReplace(TempStr,"{$IDCode}"," style=""display:none""")
	      End If
        End If
	  End If
	  TempStr = WRTemp.SiteLabel(TempStr)
	End If
	Call WRMPS.FsoEnd()
	Call ClassEnd()
	Response.write TempStr
	
  Case "AJAX"
	Dim Str
	Str = WRMPS.CheckStr(Request("Str"),0)
	Call WRMPS.FsoBegin()
	TempStr = WRTemp.SiteTemplates(1,0,69,0)
	TempStr = WRMPS.GetReplace(TempStr,"{$User}",WRMPS.GetCookies("MemberCache"))
	If Str <> "" Then TempStr = WRMPS.GetReplace(TempStr,"{$Help}","<div style=""color:red;border:1px red solid;width:100%;margin:0 0 5px 0;padding:0 5px"">"&Str&"</div>")
	TempStr = WRMPS.GetReplace(TempStr,"{$Help}","")
    If WRMPS.CheckCode("LoginErr",1) And WRMPS.GetCookies("LoginErr") >= 3 Then 
	  TempStr = WRMPS.GetReplace(TempStr,"{$IDCode}","")
	Else
	  If Instr(TempStr,"{$IDCode}") > 0 Then
	    TempStr = WRMPS.GetReplace(TempStr,"{$IsIDCode}",WRMPS.CheckCode("Login",1))
	    If WRMPS.CheckCode("Login",1) Then
		  TempStr = WRMPS.GetReplace(TempStr,"{$IDCode}","")
	    Else
	  	  TempStr = WRMPS.GetReplace(TempStr,"{$IDCode}"," style=""display:none""")
	    End If
      End If
	End If
	TempStr = WRMPS.GetReplace(TempStr,"{$ComeUrl}",ComeUrl)
	TempStr = WRTemp.SiteLabel(TempStr)
	Call WRMPS.FsoEnd()
	Call ClassEnd()
	Response.write TempStr

  Case Else
    SitePath = ",<a href="&WR_Setting(3)&"login.asp>会员登录</a>"
	SitePath = WRMPS.GetSitePath(0,SitePath)
	Call WRMPS.FsoBegin()
	TempStr = WRTemp.SiteTemplates(1,0,4,0)
	Call WRMPS.FsoEnd()
    If WRMPS.CheckCode("LoginErr",1) And WRMPS.GetCookies("LoginErr") >= 3 Then 
	  TempStr = WRMPS.GetReplace(TempStr,"{$IDCode}","")
	Else
	  If Instr(TempStr,"{$IDCode}") > 0 Then
	    TempStr = WRMPS.GetReplace(TempStr,"{$IsIDCode}",WRMPS.CheckCode("Login",1))
	    If WRMPS.CheckCode("Login",1) Then
		  TempStr = WRMPS.GetReplace(TempStr,"{$IDCode}","")
	    Else
	  	  TempStr = WRMPS.GetReplace(TempStr,"{$IDCode}"," style=""display:none""")
	    End If
      End If
	End If
	TempStr = WRMPS.GetReplace(TempStr,"{$User}",WRMPS.GetCookies("MemberCache"))
	TempStr = WRMPS.GetReplace(TempStr,"{$ComeUrl}",ComeUrl)
	TempStr = WRTemp.SiteLabel(TempStr)
	Call ClassEnd()
	Response.write TempStr
End Select

Call DBConnEnd()
	
%>
💿 文件大小 4665 K
👤 上传用户 zergwyk
📂 所属分类其他行业
🏷️ 相关标签

#5.0 #分类 #信息系统 #商
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -