您现在的位置是：网站首页> 编程资料编程资料

管理员登录_ASP CLASS类_

2023-05-25 161人已围观

简介 管理员登录_ASP CLASS类_

复制代码 代码如下:
 
 
 
<% 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 """http://www.w3.org/TR/html4/loose.dtd"">" & vbCrLf 
        Response.Write "" & vbCrLf 
        Response.Write "" & vbCrLf 
        Response.Write "" & vbCrLf 
        Response.Write "管理员登录　　　　　　　　Powered By：Www.Mesky.Net　　　　　　" & vbCrLf 
        Response.Write "" & vbCrLf 
        Response.Write "" & 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 "" & vbCrLf 
        Response.Write "

 

" & vbCrLf 
        Response.Write "

 

" & vbCrLf 
        Response.Write "ID=""Table1"">" & vbCrLf 
        Response.Write "    " & vbCrLf 
        Response.Write "        Login MeskyDMS V3　　　 
　Powered By：Www.Mesky.Cn" & vbCrLf 
        Response.Write "    " & vbCrLf 
        Response.Write "    " & vbCrLf 
        Response.Write "        " & vbCrLf 
        Response.Write "    " & vbCrLf 
        Response.Write "    " & vbCrLf 
        Response.Write "        " & 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 ("

<< = 返回管理员登录页") 
                End If 
            Case "logout" 
                Call logout 
            Case Else 
                Call login 
        End Select 
        Response.Write "        " & vbCrLf 
        Response.Write "    " & vbCrLf 
        Response.Write "    " & vbCrLf 
        Set BrowserType = New Cls_Browser 
            Response.Write ("客户端操作系统:" & BrowserType.platform & "
客户端浏览器: " & BrowserType.Browser  
& BrowserType.Version) & vbCrLf 
        Set BrowserType = Nothing 
        Response.Write "" & vbCrLf 
        Response.Write "

" & vbCrLf 
        Response.Write "" & vbCrLf 
        Response.Write "" & 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 "" & 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 "" & vbCrLf 
        Response.Write "        " & vbCrLf 
        Response.Write "        onsubmit=""VF_loginform();return false;""> " & vbCrLf 
        Response.Write "          " & vbCrLf 
        Response.Write "            用户名：" & vbCrLf 
        Response.Write "            tabindex=""1"">" & vbCrLf 
        Response.Write "          " & vbCrLf 
        Response.Write "          " & vbCrLf 
        Response.Write "            密　码：" & vbCrLf 
        Response.Write "            style=""width:200px;"">" & vbCrLf 
        Response.Write "          " & vbCrLf 
        Response.Write "          " & vbCrLf 
        Response.Write "            验证码：" & vbCrLf 
        Response.Write "                    If GetCode = 9999 Then Response.Write "9999" 
        Response.Write """  maxlength=4> " & vbCrLf 
        Response.Write "            请在验证码框输入：" & vbCrLf 
        Response.Write "          " & vbCrLf 
        Response.Write "          " & vbCrLf 
        Response.Write "             " & vbCrLf 
        Response.Write "             " & vbCrLf 
        Response.Write "          " & vbCrLf 
        Response.Write "          " & vbCrLf 
        Response.Write "             " & vbCrLf 
        Response.Write "            style=""width:80px;font:menu;"" ID=""Submit1"">" & vbCrLf 
        Response.Write "          " & vbCrLf 
        Response.Write "            " & vbCrLf 
        Response.Write "        " & 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 + "
" + "
  • 请返回输入确认码。" 
                Founderr = True 
            ElseIf Session("getcode") = "9999" Then 
                Session("getcode") = "" 
            ElseIf Session("getcode") = "" Then 
                errmsg = errmsg + "
    " + "
  • 请不要重复提交，如需重新登陆请返回登陆页面。" 
                Founderr = True 
            ElseIf CStr(Session("getcode")) <> CStr(Trim(Request("verifycode"))) Then 
                errmsg = errmsg + "
    " + "
  • 您输入的确认码和系统产生的不一致，请重新输入。" 
                Founderr = True 
            End If 
            Session("getcode") = "" 
            If username = "" Or password = "" Then 
                Founderr = True 
                errmsg = errmsg + "
    " + "
  • 请输入您的用户名或密码。
  • " 
            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 =

    上一篇：系统分配随机密码_应用技巧_

    下一篇：MusicGet 类_ASP CLASS类_

    • 相关内容

    点击排行

    本栏推荐

    猜你喜欢

    -六神源码网