复制代码代码如下: <!-#incluirfile = "Conn.asp"->
<!-#incluirfile = "cls_main.asp"->
<!-#incluirfile = "cls_md5.asp"->
<%Dimobj
setobj = newadmin_login
callobj.main ()
setobj = nada
ClassAdmin_Login
PrivateFounderr, Errmsg, Mesky
Privatesubclass_initialize ()
Founderr = false
Setmesky = newcls_main
Endsub
Privatesubclass_terminate ()
Setmesky = nada
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> 管理员登录 PoweDby ： www.mesky.net </ititle>" & vbcrlf
Response.Write "</ad Head>" & vbcrlf
Response.Write "<styleType = text/css>" & vbcrlf
Response.Write "Body {" & Vbcrlf
Response.Write "Background: #efefef;" & vbcrlf
Response.Write "Fonte-Size: 12px;" & Vbcrlf
Response.Write "Margin-top: 0px;" & vbcrlf
Response.write "}" & vbcrlf
Response.WriteVbcrlf
Response.Write "Input {" & vbcrlf