复制代码代码如下: <!-#includeFile = "conn.asp"->
<!-#includeFile = "cls_main.asp"->
<!-#includeFile = "cls_md5.asp"->
<%Dimobj
setobj = newadmin_login
callobj.main ()
setobj = tidak ada
classadmin_login
PrivateFounderr, errmsg, Mesky
Privatesubclass_initialize ()
Pendiri = false
SetMesky = newcls_main
Endsub
Privatesubclass_terminate ()
SetMesky = tidak ada
Endsub
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 =" "tipe konten" "konten =" "Teks/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 "latar belakang: #efefef;" & vbcrlf
Response.write "Font-size: 12px;" & vbcrlf
Response.write "margin-top: 0px;" & vbcrlf
Response.write "}" & vbcrlf
Response.writevbcrlf
Response.write "input {" & vbcrlf