复制代码代码如下:
<!-#includeFile = "conn.asp"->
<!-#includeFile = "cls_main.asp"->
<!-#includeFile = "cls_md5.asp"->
<%dimobj
setobj = newadmin_login
Callobj.main ()
setobj = nada
classadmin_login
PrivateFounderr, Errmsg, Mesky
Privatesubclass_initialize ()
FUNDERR = FALSO
Setmesky = newcls_main
Endsub
Privatesubclass_merminate ()
Setmesky = nada
Endsub
PublicsubMain ()
Respuesta.Write "<! DocTypehtmlPublic" "-// w3c // dtdhtml4.01transitional // en" "" "http://www.w3.org/tr/html4/loose.dtd" ">" & vbcrlf
Response.write "<html>" y vbcrlf
Response.write "<HEAD>" y 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>" y vbcrlf
Response.write "<styletype = text/css>" y vbcrlf
Response.Write "Body {" y VBCrlf
Response.Write "Background: #efefef;" & Vbcrlf
Response.Write "Font-Size: 12px;" & Vbcrlf
Response.write "Margin-top: 0px;" & vbcrlf
Response.write "}" y vbcrlf
Respuesta.Writevbcrlf
Response.Write "Input {" y VBCRLF
Respuesta.Writevbcrlf
Response.Write "Font-Size: 12px;" & Vbcrlf