复制代码代码如下: <!-#include file = "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
enddub
Privatesubclass_terminate ()
setMesky = ไม่มีอะไร
enddub
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 =" "เนื้อหาประเภท" "เนื้อหา =" "ข้อความ/html; charset = gb2312" ">" & vbcrlf
Response.write "<title> 管理员登录 Poweredby： www.mesky.net </title>" & vbcrlf
Response.write "</head>" & vbcrlf
Response.write "<styleType = text/css>" & vbcrlf
Response.write "body {" & vbcrlf
Response.write "ความเป็นมา: #efefef;" & vbcrlf
Response.write "Font-Size: 12px;" & vbcrlf
Response.write "margin-top: 0px;" & vbcrlf
Response.write "}" & vbcrlf
Response.writevbcrlf
response.write "อินพุต {" & vbcrlf