以網(wǎng)上down了一個asp動態(tài)生成form驗證javascript的代碼，自己擴(kuò)容了一下。作者的大名我給忘了，不過我記得清楚，從第一條至第九條的代碼都是該作者的原創(chuàng)。至于九至第十五條卻是本人自己加的哦。而且由于本人水平有限，從第九條至第十五條不見得會條條生效?。亢呛?，其實把它貼在這里沒有什么必要的，因為這點小會伎倆誰都會用的，我把它的作用定位為：開發(fā)時找不到該函數(shù)時到這里拷貝一下就可以了。呵，因為我即沒有刻錄機(jī)也沒有移動硬盤。實在是沒有辦法把這些代碼隨身攜帶，不過還好，在北京到處都可以上網(wǎng)。所以就把這個放在這里，用的時候ctrl+c,再ctrl+v好了。

<%

'****************************************************************

'函數(shù)名稱：checkform_js(frmname,errstr)

'功能：用asp的方法動態(tài)寫出javascript的表單驗證的函數(shù)checksubmit()

'使用方法：1、&vbcrlf&_

response.write strshow

end sub

function findjs(frmname,errstr)

dim tmparr

dim i

'參數(shù)值

i=0

'獲取錯誤列表，建立數(shù)組

tmparr=split(errstr,|)

'輸出查詢條件

select case tmparr(i+1)

case 0 '必填的text類型

findjs=if ((document.&frmname&.&tmparr(i)&.value)==)&vbcrlf&_

{&vbcrlf&_

window.alert ('&tmparr(i+2)&');&vbcrlf&_

document.&frmname&.&tmparr(i)&.select();&vbcrlf&_

document.&frmname&.&tmparr(i)&.focus();&vbcrlf&_

return false;&vbcrlf&_

}&vbcrlf

exit function

case 1 '必填的listmenu類型

findjs=if ((document.&frmname&.&tmparr(i)&.value)==)&vbcrlf&_

{&vbcrlf&_

window.alert ('&tmparr(i+2)&');&vbcrlf&_

document.&frmname&.&tmparr(i)&.focus();&vbcrlf&_

return false;&vbcrlf&_

}&vbcrlf

exit function

case 2 '必須為數(shù)字的text類型

findjs=if (isnan(document.&frmname&.&tmparr(i)&.value))&vbcrlf&_

{&vbcrlf&_

window.alert ('&tmparr(i+2)&');&vbcrlf&_

document.&frmname&.&tmparr(i)&.select();&vbcrlf&_

document.&frmname&.&tmparr(i)&.focus();&vbcrlf&_

return false;&vbcrlf&_

}&vbcrlf

exit function

case 3 '必須為指定位數(shù)的text類型

findjs=if (document.&frmname&.&tmparr(i)&.value.length!=&tmparr(i+3)&)&vbcrlf&_

{&vbcrlf&_

window.alert ('&tmparr(i+2)&');&vbcrlf&_

document.&frmname&.&tmparr(i)&.select();&vbcrlf&_

document.&frmname&.&tmparr(i)&.focus();&vbcrlf&_

return false;&vbcrlf&_

}&vbcrlf

exit function

case 4 '必須大于指定位數(shù)的text類型

findjs=if (document.&frmname&.&tmparr(i)&.value.length<&tmparr(i+3)&)&vbcrlf&_

{&vbcrlf&_

window.alert ('&tmparr(i+2)&');&vbcrlf&_

document.&frmname&.&tmparr(i)&.select();&vbcrlf&_

document.&frmname&.&tmparr(i)&.focus();&vbcrlf&_

return false;&vbcrlf&_

}&vbcrlf

exit function

case 5 '必須為email的text類型

findjs=if ((!emailreg.test(document.&frmname&.&tmparr(i)&.value))&&(document.&frmname&.&tmparr(i)&.value!=''))&vbcrlf&_

{&vbcrlf&_

window.alert ('&tmparr(i+2)&');&vbcrlf&_

document.&frmname&.&tmparr(i)&.select();&vbcrlf&_

document.&frmname&.&tmparr(i)&.focus();&vbcrlf&_

return false;&vbcrlf&_

}&vbcrlf

exit function

case 6 '必須為a-z或0-9的字符的text類型

findjs=if ((!pwdreg.test(document.&frmname&.&tmparr(i)&.value))&&(document.&frmname&.&tmparr(i)&.value!=''))&vbcrlf&_

{&vbcrlf&_

window.alert ('&tmparr(i+2)&');&vbcrlf&_

document.&frmname&.&tmparr(i)&.select();&vbcrlf&_

document.&frmname&.&tmparr(i)&.focus();&vbcrlf&_

return false;&vbcrlf&_

}&vbcrlf

exit function

case 7 '確認(rèn)密碼和密碼必須相等的text類型

findjs=if ((document.&frmname&.&tmparr(i)&.value)!=(document.&frmname&.&tmparr(i+3)&.value))&vbcrlf&_

{&vbcrlf&_

window.alert ('&tmparr(i+2)&');&vbcrlf&_

document.&frmname&.&tmparr(i)&.select();&vbcrlf&_

document.&frmname&.&tmparr(i)&.focus();&vbcrlf&_

return false;&vbcrlf&_

}&vbcrlf

exit function

case 8 '確認(rèn)以數(shù)字開頭的text類型

findjs=if ((uidbeginreg.test(document.&frmname&.&tmparr(i)&.value))&&(document.&frmname&.&tmparr(i)&.value!=''))&vbcrlf&_

{&vbcrlf&_

window.alert ('&tmparr(i+2)&');&vbcrlf&_

document.&frmname&.&tmparr(i)&.select();&vbcrlf&_

document.&frmname&.&tmparr(i)&.focus();&vbcrlf&_

return false;&vbcrlf&_

}&vbcrlf

exit function

case 9 '確認(rèn)10-101212格式的電話號碼

findjs=if ((!phonereg.test(document.&frmname&.&tmparr(i)&.value))&&(document.&frmname&.&tmparr(i)&.value!=''))&vbcrlf&_

{&vbcrlf&_

window.alert ('&tmparr(i+2)&');&vbcrlf&_

document.&frmname&.&tmparr(i)&.select();&vbcrlf&_

document.&frmname&.&tmparr(i)&.focus();&vbcrlf&_

return false;&vbcrlf&_

}&vbcrlf

exit function

case 10 '確認(rèn)只包含英文字母及-,_在內(nèi)的text。（即不包括中文及其他特殊字符）

findjs=if ((uidreg.test(document.&frmname&.&tmparr(i)&.value))&&(document.&frmname&.&tmparr(i)&.value!=''))&vbcrlf&_

{&vbcrlf&_

window.alert ('&tmparr(i+2)&');&vbcrlf&_

document.&frmname&.&tmparr(i)&.select();&vbcrlf&_

document.&frmname&.&tmparr(i)&.focus();&vbcrlf&_

return false;&vbcrlf&_

}&vbcrlf

exit function

case 11 '確認(rèn)只包含數(shù)字及-在內(nèi)的text類型（電話號碼及傳真常用）

findjs=if ((phonedetailreg.test(document.&frmname&.&tmparr(i)&.value))&&(document.&frmname&.&tmparr(i)&.value!=''))&vbcrlf&_

{&vbcrlf&_

window.alert ('&tmparr(i+2)&');&vbcrlf&_

document.&frmname&.&tmparr(i)&.select();&vbcrlf&_

document.&frmname&.&tmparr(i)&.focus();&vbcrlf&_

return false;&vbcrlf&_

}&vbcrlf

exit function

case 12 '確認(rèn)是否為有效網(wǎng)址！

findjs=if (((!re1.test(document.&frmname&.&tmparr(i)&.value))&&(!re2.test(document.&frmname&.&tmparr(i)&.value))&_

&&(document.&frmname&.&tmparr(i)&.value!=''))||&_

(re3.test(document.&frmname&.&tmparr(i)&.value))||(re4.test(document.&frmname&.&tmparr(i)&.value))||&_

(re5.test(document.&frmname&.&tmparr(i)&.value))||(re6.test(document.&frmname&.&tmparr(i)&.value))||&_

(re7.test(document.&frmname&.&tmparr(i)&.value))||(re8.test(document.&frmname&.&tmparr(i)&.value))||&_

(re9.test(document.&frmname&.&tmparr(i)&.value))||(re10.test(document.&frmname&.&tmparr(i)&.value))||&_

(re11.test(document.&frmname&.&tmparr(i)&.value))||(re12.test(document.&frmname&.&tmparr(i)&.value))||&_

(re13.test(document.&frmname&.&tmparr(i)&.value))||(!re14.test(document.&frmname&.&tmparr(i)&.value))&_

&&(document.&frmname&.&tmparr(i)&.value!=''))&vbcrlf&_

{&vbcrlf&_

window.alert('&tmparr(i+2)&');&vbcrlf&_

document.&frmname&.&tmparr(i)&.select();&vbcrlf&_

document.&frmname&.&tmparr(i)&.focus();&vbcrlf&_

return false;&vbcrlf&_

}&vbcrlf

exit function

case 13 '確認(rèn)不大于固定位數(shù)的text類型

findjs=if (document.&frmname&.&tmparr(i)&.value.length>&tmparr(i+3)&)&vbcrlf&_

{&vbcrlf&_

window.alert('&tmparr(i+2)&');&vbcrlf&_

document.&frmname&.&tmparr(i)&.select();&vbcrlf&_

document.&frmname&.&tmparr(i)&.focus();&vbcrlf&_

return false;&vbcrlf&_

}&vbcrlf

exit function

case 14 '確認(rèn)含有html標(biāo)記的text類型

findjs=if(htmlreg.test(document.&frmname&.&tmparr(i)&.value))&vbcrlf&_

{&vbcrlf&_

window.alert('&tmparr(i+2)&');&vbcrlf&_

document.&frmname&.&tmparr(i)&.select();&vbcrlf&_

document.&frmname&.&tmparr(i)&.focus();&vbcrlf&_

return false;&vbcrlf&_

}&vbcrlf

exit function

case 15

'==========================================================

' 確認(rèn)未被禁用的select類型必須選擇 格式:state|15|請選擇所在省名稱！|selcountry|city|請選擇城市信息

'注：級聯(lián)菜單第1項當(dāng)selectedindex!=0時，第2項第3項被禁用！無須檢查其他兩項

'當(dāng)級聯(lián)菜單第1項selectedindex==0時，第2項的selectedindex不能為0,第二項的selectedindex!=0時，第3項的selectedindex也不能為0

'此項用于檢查國家/省/市三項級聯(lián)菜單，當(dāng)國家不為中國時，省市可不填，為中國時，必須填寫省以及相對的市！

findjs=if (document.&frmname&.&tmparr(i+3)&.selectedindex ==0)&vbcrlf&_

{&vbcrlf&_

if (document.&frmname&.&tmparr(i)&.selectedindex ==0)&vbcrlf&_

{&vbcrlf&_

window.alert('&tmparr(i+2)&');&vbcrlf&_

document.&frmname&.&tmparr(i)&.focus;&vbcrlf&_

return false;&vbcrlf&_

}&vbcrlf&_

else if (document.&frmname&.&tmparr(i)&.selectedindex != 0)&vbcrlf&_

{&vbcrlf&_

if (document.&frmname&.&tmparr(i+4)&.selectedindex == 0)&vbcrlf&_

{&vbcrlf&_

window.alert('&tmparr(i+5)&');&vbcrlf&_

document.&frmname&.&tmparr(i+4)&.focus;&vbcrlf&_

return false;&vbcrlf&_

}&vbcrlf&_

}&vbcrlf&_

}&vbcrlf

exit function

case 16 '確認(rèn)未被禁用的select類型必須選擇 格式:檢查的表單項|16|提示信息|關(guān)聯(lián)項注：當(dāng)關(guān)聯(lián)項為第一項時，確認(rèn)開始！

findjs=if (document.&frmname&.&tmparr(i+3)&.selectedindex != 0)&vbcrlf&_

{&vbcrlf&_

if (document.&frmname&.&tmparr(i)&.selectedindex == 0)&vbcrlf&_

{&vbcrlf&_

window.alert('&tmparr(i+2)&');&vbcrlf&_

document.&frmname&.&tmparr(i)&.focus;&vbcrlf&_

return false;&vbcrlf&_

}&vbcrlf&_

}&vbcrlf

exit function

end select

end function

%>

***********************************************************************

使用范例：

< codepage=936%>

>

<%

'==========================================================

' 表單驗證實例

'==========================================================

'1、;

'2、繪制表單：name= onsubmit = javascript: return checksubmit() 注意大小寫;

'3、定義guo_error //一句只能出現(xiàn)一個“，”如位數(shù)和確認(rèn)密碼項須多加“|”指定參數(shù);

'4、call checkform_js(formname,guo_error)

'www.knowsky.com

'==========================================================

dim guo_error

guo_error =text|0|文本項必須填寫!,

guo_error = guo_error & number|0|數(shù)字項必須填寫且必須為數(shù)字！,

guo_error = guo_error & number|2|數(shù)字項必須為數(shù)字!,

guo_error = guo_error & digital|3|位數(shù)項必須為６位!|6,

guo_error = guo_error & moredigital|4|多位項必須大于4位!|4,

guo_error = guo_error & email|5|mail項必須填寫email地址!,

guo_error = guo_error & caractor|6|字符項必須為0-9a-z的字符!,

guo_error = guo_error & password2|7|確認(rèn)密碼必須與密碼項保持一致！|password1,

guo_error = guo_error & listmenu|1|必須選擇!

guo_error = guo_error & uid|8|用戶名不能以數(shù)字開頭!,

call checkform_js(form1,guo_error)

'==========================================================

' 表單驗證流程

'==========================================================

'1、通過split(guo_error,.)拆分至數(shù)組temparr();

'2、通過split(temparr,|)拆分至數(shù)組temparr();

'3、select case split(temparr(i+1),|)執(zhí)行驗證及輸出錯誤提示信息split(temparr(i+2));

'4、javascript區(qū)分大小寫地，所以各表單組件的名稱都要注意書寫一致喲~~

'==========================================================

%>

待驗證的表單

***************************************************************

以上代碼絕大多數(shù)已通過測試，不過是不是都好用，我只能說那個級聯(lián)的下拉菜單用起來不太好用?？纯茨奈蝗市只騱eb美眉加以改進(jìn)嘍。呵呵

更多信息請查看IT技術(shù)專欄