登陸asp class

最後更新：2018-12-08 來源：互聯網

上載者：User

創建阿里雲帳戶，並獲得超過 40 款產品的免費試用版；而企業帳戶則可以享有總值 $1200 的免費試用版。立即註冊！

複製代碼代碼如下:


<% 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>動感下載系統 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> </p>" & vbCrLf
Response.Write "<p> </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 ("用戶端作業系統:" & 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 "" & vbCrLf
Response.Write "" & vbCrLf
Response.Write "" & vbCrLf
Response.Write "" & 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 = ""請填寫右邊的確認密碼。"";" & vbCrLf
Response.Write " setfocus = ""['verifycode']"";" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write " if (theForm['password'].value == """"){" & vbCrLf
Response.Write " errMsg = ""請填寫登入密碼！"";" & vbCrLf
Response.Write " setfocus = ""['password']"";" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write " if (theForm['username'].value == """"){" & vbCrLf
Response.Write " errMsg = ""請填寫登入使用者名稱！"";" & 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> </td>" & vbCrLf
Response.Write " <td align=""right""> </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td> </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>您輸入的確認碼和系統產生的不一致，請重新輸入。"
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>您輸入的使用者名稱和密碼不正確或者您不是系統管理員。<br><li>請<a href=admin_login.asp>重新輸入</a>您的密碼。"
Exit Sub
Else
If Trim(Rs("password")) <> password Then
Founderr = True
errmsg = errmsg + "<br>" + "<li>您輸入的使用者名稱和密碼不正確或者您不是系統管理員。<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 %>

本文章原先以中文撰寫並發佈於 aliyun.com，亦設英文版本，僅作資訊用途。本網站不對文章的準確性，完整性或可靠性或其任何翻譯作出任何明示或暗示的陳述或保證。如對該文章有任何疑慮或投訴，請傳送電郵至 info-contact@alibabacloud.com 並提供相關疑慮或投訴的詳細說明。職員會於 5 個工作天內與您聯絡，一經驗證之後，即會刪除該侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

Sales Support

1 on 1 presale consultation

Chat Contact Sales
After-Sales Support

24/7 Technical Support 6 Free Tickets per Quarter Faster Response

Open a Ticket
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

Learn More