以網(wǎng)上down了一個(gè)asp動(dòng)態(tài)生成form驗(yàn)證javascript的代碼，自己擴(kuò)容了一下。作者的大名我給忘了，不過(guò)我記得清楚，從第一條至第九條的代碼都是該作者的原創(chuàng)。至于九至第十五條卻是本人自己加的哦。而且由于本人水平有限，從第九條至第十五條不見(jiàn)得會(huì)條條生效?。亢呛?，其實(shí)把它貼在這里沒(méi)有什么必要的，因?yàn)檫@點(diǎn)小會(huì)伎倆誰(shuí)都會(huì)用的，我把它的作用定位為：開(kāi)發(fā)時(shí)找不到該函數(shù)時(shí)到這里拷貝一下就可以了。呵，因?yàn)槲壹礇](méi)有刻錄機(jī)也沒(méi)有移動(dòng)硬盤(pán)。實(shí)在是沒(méi)有辦法把這些代碼隨身攜帶，不過(guò)還好，在北京到處都可以上網(wǎng)。所以就把這個(gè)放在這里，用的時(shí)候ctrl+c,再ctrl+v好了。
<%
'****************************************************************
'函數(shù)名稱(chēng)：checkform_js(frmname,errstr)
'功能：用asp的方法動(dòng)態(tài)寫(xiě)出javascript的表單驗(yàn)證的函數(shù)checksubmit()
'使用方法：1、&vbcrlf&_
response.write strshow
end sub
function findjs(frmname,errstr)
dim tmparr
dim i
'參數(shù)值
i=0
'獲取錯(cuò)誤列表，建立數(shù)組
tmparr=split(errstr,|)
'輸出查詢(xún)條件
select case tmparr(i+1)
case 0 '必填的text類(lèi)型
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類(lèi)型
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類(lèi)型
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類(lèi)型
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類(lèi)型
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類(lèi)型
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類(lèi)型
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類(lèi)型
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ù)字開(kāi)頭的text類(lèi)型
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格式的電話(huà)號(hào)碼
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類(lèi)型（電話(huà)號(hào)碼及傳真常用）
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類(lèi)型
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類(lèi)型
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類(lèi)型必須選擇 格式:state|15|請(qǐng)選擇所在省名稱(chēng)！|selcountry|city|請(qǐng)選擇城市信息
'注：級(jí)聯(lián)菜單第1項(xiàng)當(dāng)selectedindex!=0時(shí)，第2項(xiàng)第3項(xiàng)被禁用！無(wú)須檢查其他兩項(xiàng)
'當(dāng)級(jí)聯(lián)菜單第1項(xiàng)selectedindex==0時(shí)，第2項(xiàng)的selectedindex不能為0,第二項(xiàng)的selectedindex!=0時(shí)，第3項(xiàng)的selectedindex也不能為0
'此項(xiàng)用于檢查國(guó)家/省/市三項(xiàng)級(jí)聯(lián)菜單，當(dāng)國(guó)家不為中國(guó)時(shí)，省市可不填，為中國(guó)時(shí)，必須填寫(xiě)省以及相對(duì)的市！
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類(lèi)型必須選擇 格式:檢查的表單項(xiàng)|16|提示信息|關(guān)聯(lián)項(xiàng)注：當(dāng)關(guān)聯(lián)項(xiàng)為第一項(xiàng)時(shí)，確認(rèn)開(kāi)始！
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%>
>
<%
'==========================================================
' 表單驗(yàn)證實(shí)例
'==========================================================
'1、;
'2、繪制表單：name= onsubmit = javascript: return checksubmit() 注意大小寫(xiě);
'3、定義guo_error //一句只能出現(xiàn)一個(gè)“，”如位數(shù)和確認(rèn)密碼項(xiàng)須多加“|”指定參數(shù);
'4、call checkform_js(formname,guo_error)
'www.knowsky.com
'==========================================================
dim guo_error
guo_error =text|0|文本項(xiàng)必須填寫(xiě)!,
guo_error = guo_error & number|0|數(shù)字項(xiàng)必須填寫(xiě)且必須為數(shù)字！,
guo_error = guo_error & number|2|數(shù)字項(xiàng)必須為數(shù)字!,
guo_error = guo_error & digital|3|位數(shù)項(xiàng)必須為６位!|6,
guo_error = guo_error & moredigital|4|多位項(xiàng)必須大于4位!|4,
guo_error = guo_error & email|5|mail項(xiàng)必須填寫(xiě)email地址!,
guo_error = guo_error & caractor|6|字符項(xiàng)必須為0-9a-z的字符!,
guo_error = guo_error & password2|7|確認(rèn)密碼必須與密碼項(xiàng)保持一致！|password1,
guo_error = guo_error & listmenu|1|必須選擇!
guo_error = guo_error & uid|8|用戶(hù)名不能以數(shù)字開(kāi)頭!,
call checkform_js(form1,guo_error)
'==========================================================
' 表單驗(yàn)證流程
'==========================================================
'1、通過(guò)split(guo_error,.)拆分至數(shù)組temparr();
'2、通過(guò)split(temparr,|)拆分至數(shù)組temparr();
'3、select case split(temparr(i+1),|)執(zhí)行驗(yàn)證及輸出錯(cuò)誤提示信息split(temparr(i+2));
'4、javascript區(qū)分大小寫(xiě)地，所以各表單組件的名稱(chēng)都要注意書(shū)寫(xiě)一致喲~~
'==========================================================
%>
待驗(yàn)證的表單
***************************************************************
以上代碼絕大多數(shù)已通過(guò)測(cè)試，不過(guò)是不是都好用，我只能說(shuō)那個(gè)級(jí)聯(lián)的下拉菜單用起來(lái)不太好用?？纯茨奈蝗市只騱eb美眉加以改進(jìn)嘍。呵呵