复制代码代码如下 :
<!-#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 ()
founderr = false
setmesky = newcls_main
Endsub
privatesubclass_terminate ()
setmesky = 아무것도
Endsub
대중 서부 메인 ()
response.write "<! doctypehtmlpublic" "-// w3c // dtdhtml4.01transitional // en" "" ""http://www.w3.org/tr/html4/loose.dtd ""> "& vbcrlf
응답. "<html>"& vbcrlf
응답. "<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
응답. "</head>"& vbcrlf
response.write "<styletype = text/css>"& vbcrlf
응답. "body {"& vbcrlf
응답. "배경 : #efefef;"& vbcrlf
응답. "font-size : 12px;"& vbcrlf
응답. "margin-top : 0px;"& vbcrlf
response.write "}"& vbcrlf
응답 .writevbcrlf
response.write "input {"& vbcrlf
응답 .writevbcrlf
응답. "font-size : 12px;"& vbcrlf