管理員登錄
代碼如下:
<% 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 = ""請?zhí)顚懹疫叺拇_認(rèn)密碼。"";" & vbcrlf
response.write " setfocus = ""['verifycode']"";" & vbcrlf
response.write " }" & vbcrlf
response.write " if (theform['password'].value == """"){" & vbcrlf
response.write " errmsg = ""請?zhí)顚懙卿浢艽a!"";" & vbcrlf
response.write " setfocus = ""['password']"";" & vbcrlf
response.write " }" & vbcrlf
response.write " if (theform['username'].value == """"){" & vbcrlf
response.write " errmsg = ""請?zhí)顚懙卿浻脩裘?";" & 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 "
相關(guān)文章
- ASP怎么談到應(yīng)用到類的?
- 檢測函數(shù) asp class
- 遭遇ASP類的事件設(shè)計
- ASP高亮類
- Object對象的一些的隱藏函數(shù)介紹
- 淺談ASP中的類
- 在VBScript中使用類
- ASP 類專題
- 代碼與頁面的分離
- ASP代碼的對象化
- 一個asp快速字符串連接類
- 一個簡單的asp數(shù)據(jù)庫操作類
- ASP類編寫詳細說明
- 實現(xiàn)支持邏輯搜索/單詞搜索/詞組搜索+支持OR/AND關(guān)鍵字的VBS CLASS!
- ASP類Class入門 推薦
- 創(chuàng)建一個ASP通用分頁類
- 如何編寫一個ASP類
- 一個ACCESS數(shù)據(jù)庫訪問的類第1/3頁
- 分頁類,異常類
- ASP 類 Class入門