復制代碼 代碼如下:
!-- #include file="conn.asp" -->
!-- #include file="cls_main.asp" -->
!-- #include file="cls_md5.asp" -->
% dim obj
set obj = New admin_login
call obj.Main()
set obj = nothing
class admin_login
Private Founderr, errmsg,Mesky
Private Sub Class_Initialize()
Founderr = False
Set Mesky = New Cls_Main
End Sub
Private Sub Class_Terminate()
Set Mesky = Nothing
End Sub
Public Sub Main()
Response.Write "!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"" ""http://www.w3.org/TR/html4/loose.dtd"">" vbCrLf
Response.Write "html>" vbCrLf
Response.Write "head>" vbCrLf
Response.Write "meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">" vbCrLf
Response.Write "title>動感下載系統(tǒng) V3.0 ——管理員登錄 Powered By:Www.Mesky.Net /title>" vbCrLf
Response.Write "/head>" vbCrLf
Response.Write "style type=text/css>" vbCrLf
Response.Write "body {" vbCrLf
Response.Write " background:#EFEFEF;" vbCrLf
Response.Write " font-size: 12px;" vbCrLf
Response.Write " margin-top:0px;" vbCrLf
Response.Write "}" vbCrLf
Response.Write vbCrLf
Response.Write "INPUT {" vbCrLf
Response.Write vbCrLf
Response.Write " FONT-SIZE: 12px;" vbCrLf
Response.Write " font-family: ""宋體"";" vbCrLf
Response.Write "}" vbCrLf
Response.Write "SPAN {" vbCrLf
Response.Write " FONT-SIZE: 12px; POSITION: static" vbCrLf
Response.Write "}" vbCrLf
Response.Write "a:link,a:visited {" vbCrLf
Response.Write " color: #0033FF;" vbCrLf
Response.Write " text-decoration: none;" vbCrLf
Response.Write "}" vbCrLf
Response.Write "/style>" vbCrLf
Response.Write "p>nbsp;/p>" vbCrLf
Response.Write "p>nbsp;/p>" vbCrLf
Response.Write "table align=center width=380 style=""border: outset 3px;"" cellpadding=0 cellspacing=0 ID=""Table1"">" vbCrLf
Response.Write " tr>" vbCrLf
Response.Write " td style=""padding:3px;background-color:blue;color:white;"">Login MeskyDMS V3 Powered By:Www.Mesky.Cn/td>" vbCrLf
Response.Write " /tr>" vbCrLf
Response.Write " tr valign=top>" vbCrLf
Response.Write " td>img src=""images/admin_title.gif"" width=""100%"">/td>" vbCrLf
Response.Write " /tr>" vbCrLf
Response.Write " tr>" vbCrLf
Response.Write " td style=""padding:15px;"">" vbCrLf
Dim username
Dim password
Dim ip
Dim BrowserType
Select Case Request("action")
Case "chklogin"
Call chklogin
If Founderr Then
Response.Write (errmsg)
Response.Write ("br>br> = a href=""admin_login.asp"">返回管理員登錄頁/a>")
End If
Case "logout"
Call logout
Case Else
Call login
End Select
Response.Write " /td>" vbCrLf
Response.Write " /tr>" vbCrLf
Response.Write " tr>td style=""padding:10px;"">" vbCrLf
Set BrowserType = New Cls_Browser
Response.Write ("客戶端操作系統(tǒng):" BrowserType.platform "br>客戶端瀏覽器: " BrowserType.Browser BrowserType.Version) vbCrLf
Set BrowserType = Nothing
Response.Write "/td>/tr>" vbCrLf
Response.Write "/table>br>br>" vbCrLf
Response.Write "/body>" vbCrLf
Response.Write "/html>" vbCrLf
End Sub
Sub logout() '用戶退出
Session("adminName") = ""
Session("adminPass") = ""
Call login
End Sub
Sub login() '用戶登錄
On Error Resume Next
Dim Ados, GetCode
' Ados = Server.CreateObject("Adodb.Stream")
If Err Then
GetCode = 9999
End If
Response.Write "script language=""Javascript"">!--" vbCrLf
Response.Write "function VF_loginform(){ //v2.0" vbCrLf
Response.Write "!--start_of_saved_settings-->" vbCrLf
Response.Write "!--type,text,name,verifycode,required,true,isNum,errMsg,請?zhí)顚懹疫叺拇_認密碼。-->" vbCrLf
Response.Write "!--type,password,name,password,required,true,errMsg,請?zhí)顚懙卿浢艽a!-->" vbCrLf
Response.Write "!--type,text,name,username,required,true,errMsg,請?zhí)顚懙卿浻脩裘?->" vbCrLf
Response.Write "!--end_of_saved_settings-->" vbCrLf
Response.Write " var theForm = document.loginform;" vbCrLf
Response.Write " var numRE = /^\d+$/;" vbCrLf
Response.Write " var errMsg = """";" vbCrLf
Response.Write " var setfocus = """";" vbCrLf
Response.Write vbCrLf
Response.Write " if (!numRE.test(theForm['verifycode'].value)){" vbCrLf
Response.Write " errMsg = ""請?zhí)顚懹疫叺拇_認密碼。"";" vbCrLf
Response.Write " setfocus = ""['verifycode']"";" vbCrLf
Response.Write " }" vbCrLf
Response.Write " if (theForm['password'].value == """"){" vbCrLf
Response.Write " errMsg = ""請?zhí)顚懙卿浢艽a!"";" vbCrLf
Response.Write " setfocus = ""['password']"";" vbCrLf
Response.Write " }" vbCrLf
Response.Write " if (theForm['username'].value == """"){" vbCrLf
Response.Write " errMsg = ""請?zhí)顚懙卿浻脩裘?";" vbCrLf
Response.Write " setfocus = ""['username']"";" vbCrLf
Response.Write " }" vbCrLf
Response.Write " if (errMsg != """"){" vbCrLf
Response.Write " alert(errMsg);" vbCrLf
Response.Write " eval(""theForm"" + setfocus + "".focus()"");" vbCrLf
Response.Write " }" vbCrLf
Response.Write " else theForm.submit();" vbCrLf
Response.Write "}//-->" vbCrLf
Response.Write "/script>" vbCrLf
Response.Write " table border=""0"">" vbCrLf
Response.Write " form action=""?action=chklogin"" method=""post"" name=""loginform"" onsubmit=""VF_loginform();return false;""> " vbCrLf
Response.Write " tr>" vbCrLf
Response.Write " td>span style=""width:80px;"">用戶名:/span>/td>" vbCrLf
Response.Write " td>input maxlength=20 type=""text"" name=""username"" style=""width:200px;"" tabindex=""1"">/td>" vbCrLf
Response.Write " /tr>" vbCrLf
Response.Write " tr>" vbCrLf
Response.Write " td>span style=""width:80px;"">密 碼:/span>/td>" vbCrLf
Response.Write " td>input maxlength=20 type=""password"" name=""password"" style=""width:200px;"">/td>" vbCrLf
Response.Write " /tr>" vbCrLf
Response.Write " tr>" vbCrLf
Response.Write " td>span style=""width:80px;"">驗證碼:/span>/td>" vbCrLf
Response.Write " td>input name=""verifycode"" type=""text"" style=""width:60px;"" value="""
If GetCode = 9999 Then Response.Write "9999"
Response.Write """ maxlength=4> " vbCrLf
Response.Write " 請在驗證碼框輸入:img src=""GetCode.asp"">/td>" vbCrLf
Response.Write " /tr>" vbCrLf
Response.Write " tr>" vbCrLf
Response.Write " td>nbsp;/td>" vbCrLf
Response.Write " td align=""right"">nbsp;/td>" vbCrLf
Response.Write " /tr>" vbCrLf
Response.Write " tr>" vbCrLf
Response.Write " td>nbsp;/td>" vbCrLf
Response.Write " td align=""right"">input type=""submit"" value=""登 錄..."" name=""btnSubmit"" style=""width:80px;font:menu;"" ID=""Submit1"">/td>" vbCrLf
Response.Write " /tr>" vbCrLf
Response.Write " /form> " vbCrLf
Response.Write " /table>" vbCrLf
End Sub
'檢驗用戶登錄
Sub chklogin()
Dim UserName,Password,IP
username = Trim(Replace(Request("username"), "'", ""))
password = MD5(Trim(Replace(Request("password"), "'", "")), 16)
If Request("verifycode") = "" Then
errmsg = errmsg + "br>" + "li>請返回輸入確認碼。"
Founderr = True
ElseIf Session("getcode") = "9999" Then
Session("getcode") = ""
ElseIf Session("getcode") = "" Then
errmsg = errmsg + "br>" + "li>請不要重復提交,如需重新登陸請返回登陸頁面。"
Founderr = True
ElseIf CStr(Session("getcode")) > CStr(Trim(Request("verifycode"))) Then
errmsg = errmsg + "br>" + "li>您輸入的確認碼和系統(tǒng)產(chǎn)生的不一致,請重新輸入。"
Founderr = True
End If
Session("getcode") = ""
If username = "" Or password = "" Then
Founderr = True
errmsg = errmsg + "br>" + "li>請輸入您的用戶名或密碼。li>"
End If
If Founderr Then Exit Sub
ip = Replace(Request.ServerVariables("REMOTE_ADDR"), "'", "")
Dim Rs
Set Rs = Mesky.Execute("select * from Mesky_SiteManager where username='" username "'")
If Rs.EOF And Rs.BOF Then
Set Rs = Nothing
Founderr = True
errmsg = errmsg + "br>" + "li>您輸入的用戶名和密碼不正確或者您不是系統(tǒng)管理員。br>li>請a href=admin_login.asp>重新輸入/a>您的密碼。"
Exit Sub
Else
If Trim(Rs("password")) > password Then
Founderr = True
errmsg = errmsg + "br>" + "li>您輸入的用戶名和密碼不正確或者您不是系統(tǒng)管理員。br>li>請a href=admin_login.asp>重新輸入/a>您的密碼。"
Set Rs = Nothing
Exit Sub
Else
Session("adminName") = Rs("UserName")
Session("adminPass") = Rs("Password")
Session.Timeout = 45
Mesky.Execute ("update Mesky_SiteManager set LastLogin= " SqlNowString ",LastLoginIP='" ip "',LastActive=" SqlNowString ",Logins=Logins+1 where username='" username "'")
Set Rs = Nothing
Call Mesky.LoadSetting()
Response.Write "script>location.href='" Mesky.Setting(11) "admin_index.asp'/script>"
End If
End If
End Sub
End Class %>