复制代码代码如下：<！ - ＃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（）
funderr = false
setMesky = newcls_main
endub
PrivatesUbClass_Terminate（）
setmesky =没有
endub
PublicSubMain（）
wrespy.write“ <！doctypehtmlpublic” - // W3C // dtdhtml4.01transitional // en'“”
“” http://www.w3.org/tr/html4/loose.dtd"">“＆vbcrlf
wress.write“ <html>”＆vbcrlf
响应。写入“ <head>”＆vbcrlf
wress.write“ <metahttp-equiv =”“ content-type”“ content =”“ text/html; charset = gb2312“”>“＆vbcrlf
wress.write“ <title>管理员登录管理员登录：www.mesky.net </title>”＆vbcrlf
响应。写入“ </head>”＆vbcrlf
wress.write“ <styletype = text/css>”＆vbcrlf
响应。写入“身体{”＆vbcrlf
wress.write“背景：#efefef;”＆vbcrlf
响应。写入“字体大小：12px;”＆vbcrlf
wrespy.write“保证金顶：0px;”＆vbcrlf
wrespy.write“}”＆vbcrlf
wress.writevbcrlf
响应。写入“输入{”＆vbcrlf