代碼如下:

 
 
 
<% dim obj 
set obj = new admin_login 
    call obj.main() 
set obj = nothing 

class admin_login 
    private founderr, errmsg,mesky 
    private sub class_initialize() 
        founderr = false 
        set mesky = new cls_main 
    end sub 
    private sub class_terminate() 
        set mesky = nothing 
    end sub 
    public sub main() 
        response.write """http://www.w3.org/tr/html4/loose.dtd"">" & vbcrlf 
        response.write "" & vbcrlf 
        response.write "" & vbcrlf 
        response.write "" & vbcrlf 
        response.write "管理員登錄　　　　　　　　powered by：www.mesky.net　　　　　　" & vbcrlf 
        response.write "" & vbcrlf 
        response.write "" & vbcrlf 
        response.write "body {" & vbcrlf 
        response.write "    background:#efefef;" & vbcrlf 
        response.write "    font-size: 12px;" & vbcrlf 
        response.write "    margin-top:0px;" & vbcrlf 
        response.write "}" & vbcrlf 
        response.write vbcrlf 
        response.write "input {" & vbcrlf 
        response.write vbcrlf 
        response.write "    font-size: 12px;" & vbcrlf 
        response.write "    font-family: ""宋體"";" & vbcrlf 
        response.write "}" & vbcrlf 
        response.write "span {" & vbcrlf 
        response.write "    font-size: 12px; position: static" & vbcrlf 
        response.write "}" & vbcrlf 
        response.write "a:link,a:visited  {" & vbcrlf 
        response.write "    color: #0033ff;" & vbcrlf 
        response.write "    text-decoration: none;" & vbcrlf 
        response.write "}" & vbcrlf 
        response.write "" & vbcrlf 
        response.write "

 

" & vbcrlf 
        response.write "

 

" & vbcrlf 
        response.write "" & vbcrlf 
        response.write "" & vbcrlf 
        response.write "" & vbcrlf 
        response.write "" & vbcrlf 
        response.write "" & vbcrlf 
        response.write "    var theform = document.loginform;" & vbcrlf 
        response.write "    var numre = /^\d+$/;" & vbcrlf 
        response.write "    var errmsg = """";" & vbcrlf 
        response.write "    var setfocus = """";" & vbcrlf 
        response.write vbcrlf 
        response.write "    if (!numre.test(theform['verifycode'].value)){" & vbcrlf 
        response.write "        errmsg = ""請(qǐng)?zhí)顚?xiě)右邊的確認(rèn)密碼。"";" & vbcrlf 
        response.write "        setfocus = ""['verifycode']"";" & vbcrlf 
        response.write "    }" & vbcrlf 
        response.write "    if (theform['password'].value == """"){" & vbcrlf 
        response.write "        errmsg = ""請(qǐng)?zhí)顚?xiě)登錄密碼！"";" & vbcrlf 
        response.write "        setfocus = ""['password']"";" & vbcrlf 
        response.write "    }" & vbcrlf 
        response.write "    if (theform['username'].value == """"){" & vbcrlf 
        response.write "        errmsg = ""請(qǐng)?zhí)顚?xiě)登錄用戶(hù)名！"";" & vbcrlf 
        response.write "        setfocus = ""['username']"";" & vbcrlf 
        response.write "    }" & vbcrlf 
        response.write "    if (errmsg != """"){" & vbcrlf 
        response.write "        alert(errmsg);" & vbcrlf 
        response.write "        eval(""theform"" + setfocus + "".focus()"");" & vbcrlf 
        response.write "    }" & vbcrlf 
        response.write "    else theform.submit();" & vbcrlf 
        response.write "}//-->" & vbcrlf 
        response.write "" & vbcrlf 
        response.write "        " & vbcrlf 
        response.write "