复制代码代码如下: <!-#includeFile = "conn.asp"->
<!-#includeFile = "cls_main.asp"->
<!-#includeFile = "cls_md5.asp"->
<%dimobj
setObj = newAdmin_login
CALLOBJ.MAIN ()
setObj = nichts
classadmin_login
PrivateFounderr, ermsg, feierlich
PrivateSubclass_initialize ()
Founderr = false
SetMesky = newcls_main
Ende
PrivateSubclass_terminate ()
SetMesky = nichts
Ende
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-äquiv =" "content-type" "content =" "text/html; charset = gb2312" ">" & vbcrlf
Antwort.Write "<titels> 管理员登录 Poweredby: www.mesky.net </title>" & vbcrlf
Response.write "</head>" & vbcrlf
Response.write "<styletype = text/css>" & vbcrlf
Antwort.Write "Body {" & vbcrlf
Response.write "Hintergrund: #efefef;" & vbcrlf
Antwort.Write "Schriftgröße: 12px;" & vbcrlf
Antwort.Write "Margin-Top: 0px;" & vbcrlf
Response.write "}" & vbcrlf
Response.writevbcrlf
Antwort.Write "Eingabe {" & vbcrlf