管理员登录

日期：2020-05-13 栏目：程序人生浏览：次
复制代码代码如下:
<!-- #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  
      
转载注明出处：http://www.heiqu.com/3119.html
管理员登录

相关推荐
