复制代码 代码如下:
<!-- #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>动感下载系统 V3.0 ——管理员登录 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
内容版权声明：除非注明，否则皆为本站原创文章。