管理員登錄

2024-05-04 11:02:29

字體：大中小

來源：轉載

供稿：網友

復制代碼代碼如下:


<% 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