程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> 關於ASP編程 >> 管理員登錄

管理員登錄

編輯:關於ASP編程

復制代碼 代碼如下:<!-- #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>管理員登錄        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 "function VF_loginform(){ //v2.0" & vbCrLf 
        Response.Write "<!--start_of_saved_settings-->" & vbCrLf 
        Response.Write "<!--type,text,name,verifycode,required,true,isNum,errMsg,請填寫右邊的確認密碼。-->" & vbCrLf 
        Response.Write "<!--type,password,name,password,required,true,errMsg,請填寫登錄密碼!-->" & vbCrLf 
        Response.Write "<!--type,text,name,username,required,true,errMsg,請填寫登錄用戶名!-->" & 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 = ""請填寫右邊的確認密碼。"";" & 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 %>

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved