复制代码代码如下:
<!--#includefile="conn.asp"-->
<!--#includefile="cls_main.asp"-->
<!--#includefile="cls_md5.asp"-->
<%dimobj
setobj=Newadmin_login
callobj.Main()
setobj=nothing
classadmin_login
PrivateFounderr,errmsg,Mesky
PrivateSubClass_Initialize()
Founderr=False
SetMesky=NewCls_Main
EndSub
PrivateSubClass_Terminate()
SetMesky=Nothing
EndSub
PublicSubMain()
Response.Write"<!DOCTYPEHTMLPUBLIC""-//W3C//DTDHTML4.01Transitional//EN""""http://www.w3.org/TR/html4/loose.dtd"">"&vbCrLf
Response.Write"<html>"&vbCrLf
Response.Write"<head>"&vbCrLf
Response.Write"<metahttp-equiv=""Content-Type""content=""text/html;charset=gb2312"">"&vbCrLf
Response.Write"<title>动感下载系统V3.0——管理员登录 PoweredBy:Www.Mesky.Net </title>"&vbCrLf
Response.Write"</head>"&vbCrLf
Response.Write"<styletype=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.WritevbCrLf
Response.Write"INPUT{"&vbCrLf
Response.WritevbCrLf
Response.Write"FONT-SIZE:12px;"&vbCrLf