复制代码代码如下: <!-#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 ()
مؤسس = خطأ
setMesky = newcls_main
ينتهي
privatesubclass_terminate ()
setMesky = لا شيء
ينتهي
publicsubmain ()
Response.write "<! doctypehtmlpublic" "-// w3c // dtdhtml4.01trantional // en" "
"" http://www.w3
Response.write "<html>" & vbcrlf
استجابة. write "<head>" & vbcrlf
استجابة. write "<metahttp-equiv =" "content-type" "content =" "text/html ؛ charset = gb2312" ">" & vbcrlf
Response.write "<title> 管理员登录 poweredby ： www.mesky.net </title>" & vbcrlf
استجابة. write "</head>" & vbcrlf
استجابة. write "<dyletype = text/css>" & vbcrlf
استجابة. write "body {" & vbcrlf
استجابة. write "الخلفية: #efefef ؛" & vbcrlf
استجابة. write "Font-Size: 12px ؛" & vbcrlf
استجابة. write "الهامش-أعلى: 0px ؛" & vbcrlf
استجابة. write "}" & vbcrlf
استجابة. writevbcrlf
استجابة. write "input {" & vbcrlf