登陆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 "" & vbCrLf
        Response.Write "" & vbCrLf
        Response.Write "" & vbCrLf
        Response.Write "" & vbCrLf
        Response.Write "" & 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 "" & 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 "         " & 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 "          " & 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 "            " & 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 = errmsg + "
" + "

您输入的用户名和密码不正确或者您不是系统管理员。

请重新输入您的密码。"
            Exit Sub
        Else
            If Trim(Rs("password")) <> password Then
                Founderr = True
                errmsg = errmsg + "
" + "

您输入的用户名和密码不正确或者您不是系统管理员。

请重新输入您的密码。"
                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 ""
            End If
        End If
    End Sub
End Class %>