复制代码代码如下: <!-#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 ()
Response.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> 管理员登录 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