複製代碼代碼如下：
<！ - ＃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（）
response.write“ <！doctypehtmlpublic”“ - // W3C // dtdhtml4.01transitional // en”“”“”“” http：//www.org/tr/html4/lloose.dtdddddddd'>“＆vbcrlf
wress.write“ <html>”＆vbcrlf
響應。寫入“ <head>”＆vbcrlf
wress.write“ <metahttp-equiv =”“ content-type”“ content =”“ text/html; charset = gb2312“”>“＆vbcrlf
wress.write“ <title>動感下載系統v3.0-——管理員登錄：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
wress.writevbcrlf
響應。寫入“字體大小：12px;”＆vbcrlf