複製代碼代碼如下：<！ - ＃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