复制代码代码如下: <!-#includefile = "conn.asp"->
<!-#includefile = "cls_main.asp"->
<!-#includefile = "cls_md5.asp"->
<%dimobj
setobj = newadmin_login
callobj.main ()
setObj = ничего
classadmin_login
PrivateFounderr, Errmsg, Mesky
Privatesubclass_initialize ()
Founder = false
SetMesky = newcls_main
Заканчивая
Privatesubclass_mterminate ()
SetMesky = ничего
Заканчивая
Publicsubmain ()
Ответ.
"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> 管理员登录 Poweredby ： www.mesky.net </title>" & vbcrlf
Response.write "</head>" & vbcrlf
Response.write "<styletype = text/css>»
Response.write "body {" & vbcrlf
Response.write "Фон: #EFEF;" & vBcrlf
Response.write "font-size: 12px;" & vbcrlf
Response.write "Margin-top: 0px;" & vbcrlf
Response.write "}" & vbcrlf
Response.writevbcrlf
Response.write "input {" & vbcrlf