管理员登录

2024-05-04 10:58:49

字体：大中小

来源：转载

供稿：网友

复制代码代码如下:

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

上一篇：ASP中FSO的神奇功能 - 使用FSO进行搜索

下一篇：asp无限分级(递归调用)

发表评论

共有条评论