ASP動態(tài)生成的javascript表單驗證代碼
更新時間：2006年11月16日 00:00:00 作者：
以網(wǎng)上down了一個ASP動態(tài)生成Form驗證javascript的代碼，自己擴容了一下。作者的大名我給忘了，不過我記得清楚，從第一條至第九條的代碼都是該作者的原創(chuàng)。至于九至第十五條卻是本人自己加的哦。而且由于本人水平有限，從第九條至第十五條不見得會條條生效?。亢呛?，其實把它貼在這里沒有什么必要的，因為這點小會伎倆誰都會用的，我把它的作用定位為：開發(fā)時找不到該函數(shù)時到這里拷貝一下就可以了。呵，因為我即沒有刻錄機也沒有移動硬盤。實在是沒有辦法把這些代碼隨身攜帶，不過還好，在北京到處都可以上網(wǎng)。所以就把這個放在這里，用的時候Ctrl+C,再Ctrl+V好了。
***********************************************************************
使用范例：
***************************************************************
以上代碼絕大多數(shù)已通過測試，不過是不是都好用，我只能說那個級聯(lián)的下拉菜單用起來不太好用?？纯茨奈蝗市只騑EB美眉加以改進嘍。呵呵
復(fù)制代碼 代碼如下:
<%
'****************************************************************
'函數(shù)名稱：CheckForm_JS(frmName,errStr)
'功能：用ASP的方法動態(tài)寫出javascript的表單驗證的函數(shù)checkSubmit()
'使用方法：1、<!--Include File=URL+本函數(shù)所在的頁>;
' 2、<form onsubmit="javascript:return checkSubmit()">;
'原作者已被忘卻，二次開發(fā)作者：Guo.Q.M
'最后更新：2004
'****************************************************************
'幫助：
'---------------------------------------------------------------
'·參數(shù)說明：
'frmName:表單域的名稱
'errStr:驗證列表，如："num|3|型號必須不小于8位|8,email|5|請輸入正確的email格式"，這里
' num表示表單域名稱，3表示驗證參數(shù)，8表示不小于的位數(shù)（可選）
'
'·驗證參數(shù)列表：
'0:必填的Text類型
'1:必填的ListMenu類型
'2:必須為數(shù)字的Text類型
'3:必須為指定位數(shù)的Text類型
'4:必須大于指定位數(shù)的Text類型
'5:必須為Email的Text類型
'6:必須為a-z或0-9的字符的Text類型
'7:確認密碼和密碼必須相等的Text類型
'8:確認不是以以數(shù)字開頭的Text類型
'9:必須包含10-888888格式的Text類型
'10:不得包含中文、空格及其他非法字符的Text類型，即只能包含"_""-""0-9""a-z"A-Z"
'11:必須只包含數(shù)字及"-"在內(nèi)的Text類型
'12:必須為正確網(wǎng)址的Text類型
'13:必須小于指定位數(shù)的Text類型
'14:不得包含HTML標記的Text類型
'15:確認未被禁用的Select類型必須選擇 格式:檢查的表單項|15|提示信息|關(guān)聯(lián)項"
'注意：如有級聯(lián)菜單，請將級聯(lián)菜單的驗證過程放到最后檢驗?。。?！
'------------------------------------------------------------------------
%>
<%
Sub CheckForm_JS(frmName,errStr)
Dim tmpArr
Dim i
Dim strShow '輸出JS的字符串
'獲取錯誤列表，建立數(shù)組
tmpArr=Split(errStr,",")
'寫JS
for i=0 to UBound(tmpArr)
if i<>0 then
strShow=strShow&"else "&findJS(frmName,tmpArr(i))
else
strShow=strShow&findJS(frmName,tmpArr(i))
end if
next
'輸出
strShow="<script language=javascript>"&vbCrlf&_
"<!--"&vbCrlf&_
"http://Power by Guoquanman 2004"&vbCrlf&_
"function checkSubmit()"&vbCrlf&_
"{"&vbCrlf&_
"var emailReg = /^[_a-z0-9]+@([_a-z0-9]+\.)+[a-z0-9]{2,3}$/;"&vbCrlf&_
"var pwdReg = /[a-z0-9]$/;"&vbCrlf&_
"var uidBeginReg = /^[0-9]+[_a-z0-9]/;"&vbCrlf&_
"var phoneReg = /\d{2}-\d{5}/;"&vbCrlf&_
"var phoneDetailReg = /[^0-9\-]/;"&vbCrlf&_
"var uidReg = /[^a-zA-Z0-9_\-]/;"&vbCrlf&_
"var htmlReg = /<(.*)>.*<\/\1>/;"&vbCrlf&_
"var re1 = /^http:\/\/[A-Za-z][A-Za-z0-9\-]*[A-Za-z]*\./;"&vbCrlf&_
"var re2 = /^http:\/\/[0-9]{1,5}[A-Za-z]*[0-9]*\./;"&vbCrlf&_
"var re3 = /\.{2,}/;"&vbCrlf&_
"var re4 = /\:{2,}/;"&vbCrlf&_
"var re5 = /\/{3,}/;"&vbCrlf&_
"var re6 = /\,+/;"&vbCrlf&_
"var re7 = /\!+/;"&vbCrlf&_
"var re8 = /\@+/;"&vbCrlf&_
"var re9 = /\#+/;"&vbCrlf&_
"var re10 = /\$+/;"&vbCrlf&_
"var re11 = /\^+/;"&vbCrlf&_
"var re12 = /\*+/;"&vbCrlf&_
"var re13 = /\|+/;"&vbCrlf&_
"var re14 = /\.[a-z0-9_&=?\/]*[A-Za-z0-9\/\~]{2,}$/;"&vbCrlf&_
strShow&_
"else"&vbCrlf&_
"return true;"&vbCrlf&_
"}"&vbCrlf&_
"http://-->"&vbCrlf&_
"</script>"
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" '確認密碼和密碼必須相等的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" '確認以數(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" '確認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" '確認只包含英文字母及"-","_"在內(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" '確認只包含數(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" '確認是否為有效網(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" '確認不大于固定位數(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" '確認含有HTML標記的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"
'==========================================================
' 確認未被禁用的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" '確認未被禁用的Select類型必須選擇 格式:檢查的表單項|16|提示信息|關(guān)聯(lián)項"注：當(dāng)關(guān)聯(liá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
%>
'****************************************************************
'函數(shù)名稱：CheckForm_JS(frmName,errStr)
'功能：用ASP的方法動態(tài)寫出javascript的表單驗證的函數(shù)checkSubmit()
'使用方法：1、<!--Include File=URL+本函數(shù)所在的頁>;
' 2、<form onsubmit="javascript:return checkSubmit()">;
'原作者已被忘卻，二次開發(fā)作者：Guo.Q.M
'最后更新：2004
'****************************************************************
'幫助：
'---------------------------------------------------------------
'·參數(shù)說明：
'frmName:表單域的名稱
'errStr:驗證列表，如："num|3|型號必須不小于8位|8,email|5|請輸入正確的email格式"，這里
' num表示表單域名稱，3表示驗證參數(shù)，8表示不小于的位數(shù)（可選）
'
'·驗證參數(shù)列表：
'0:必填的Text類型
'1:必填的ListMenu類型
'2:必須為數(shù)字的Text類型
'3:必須為指定位數(shù)的Text類型
'4:必須大于指定位數(shù)的Text類型
'5:必須為Email的Text類型
'6:必須為a-z或0-9的字符的Text類型
'7:確認密碼和密碼必須相等的Text類型
'8:確認不是以以數(shù)字開頭的Text類型
'9:必須包含10-888888格式的Text類型
'10:不得包含中文、空格及其他非法字符的Text類型，即只能包含"_""-""0-9""a-z"A-Z"
'11:必須只包含數(shù)字及"-"在內(nèi)的Text類型
'12:必須為正確網(wǎng)址的Text類型
'13:必須小于指定位數(shù)的Text類型
'14:不得包含HTML標記的Text類型
'15:確認未被禁用的Select類型必須選擇 格式:檢查的表單項|15|提示信息|關(guān)聯(lián)項"
'注意：如有級聯(lián)菜單，請將級聯(lián)菜單的驗證過程放到最后檢驗?。。?！
'------------------------------------------------------------------------
%>
<%
Sub CheckForm_JS(frmName,errStr)
Dim tmpArr
Dim i
Dim strShow '輸出JS的字符串
'獲取錯誤列表，建立數(shù)組
tmpArr=Split(errStr,",")
'寫JS
for i=0 to UBound(tmpArr)
if i<>0 then
strShow=strShow&"else "&findJS(frmName,tmpArr(i))
else
strShow=strShow&findJS(frmName,tmpArr(i))
end if
next
'輸出
strShow="<script language=javascript>"&vbCrlf&_
"<!--"&vbCrlf&_
"http://Power by Guoquanman 2004"&vbCrlf&_
"function checkSubmit()"&vbCrlf&_
"{"&vbCrlf&_
"var emailReg = /^[_a-z0-9]+@([_a-z0-9]+\.)+[a-z0-9]{2,3}$/;"&vbCrlf&_
"var pwdReg = /[a-z0-9]$/;"&vbCrlf&_
"var uidBeginReg = /^[0-9]+[_a-z0-9]/;"&vbCrlf&_
"var phoneReg = /\d{2}-\d{5}/;"&vbCrlf&_
"var phoneDetailReg = /[^0-9\-]/;"&vbCrlf&_
"var uidReg = /[^a-zA-Z0-9_\-]/;"&vbCrlf&_
"var htmlReg = /<(.*)>.*<\/\1>/;"&vbCrlf&_
"var re1 = /^http:\/\/[A-Za-z][A-Za-z0-9\-]*[A-Za-z]*\./;"&vbCrlf&_
"var re2 = /^http:\/\/[0-9]{1,5}[A-Za-z]*[0-9]*\./;"&vbCrlf&_
"var re3 = /\.{2,}/;"&vbCrlf&_
"var re4 = /\:{2,}/;"&vbCrlf&_
"var re5 = /\/{3,}/;"&vbCrlf&_
"var re6 = /\,+/;"&vbCrlf&_
"var re7 = /\!+/;"&vbCrlf&_
"var re8 = /\@+/;"&vbCrlf&_
"var re9 = /\#+/;"&vbCrlf&_
"var re10 = /\$+/;"&vbCrlf&_
"var re11 = /\^+/;"&vbCrlf&_
"var re12 = /\*+/;"&vbCrlf&_
"var re13 = /\|+/;"&vbCrlf&_
"var re14 = /\.[a-z0-9_&=?\/]*[A-Za-z0-9\/\~]{2,}$/;"&vbCrlf&_
strShow&_
"else"&vbCrlf&_
"return true;"&vbCrlf&_
"}"&vbCrlf&_
"http://-->"&vbCrlf&_
"</script>"
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" '確認密碼和密碼必須相等的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" '確認以數(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" '確認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" '確認只包含英文字母及"-","_"在內(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" '確認只包含數(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" '確認是否為有效網(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" '確認不大于固定位數(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" '確認含有HTML標記的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"
'==========================================================
' 確認未被禁用的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" '確認未被禁用的Select類型必須選擇 格式:檢查的表單項|16|提示信息|關(guān)聯(lián)項"注：當(dāng)關(guān)聯(liá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
%>
***********************************************************************
使用范例：
復(fù)制代碼 代碼如下:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#Include file = "inc/check_formJS.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<%
'==========================================================
' 表單驗證實例
'==========================================================
'1、<!--#Include file = "inc/check_formJS.asp"-->;
'2、繪制表單：name="" onsubmit = "javascript: return checkSubmit()" 注意大小寫;
'3、定義Guo_Error //一句只能出現(xiàn)一個“，”如位數(shù)和確認密碼項須多加“|”指定參數(shù);
'4、Call CheckForm_js("formname,Guo_Error)
'www.china-u.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|確認密碼必須與密碼項保持一致！|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ū)分大小寫地，所以各表單組件的名稱都要注意書寫一致喲~~
'==========================================================
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>表單驗證實例</title>
</head>
<body>
<form name="form1" method="post" action="check_form.asp" onsubmit="javascript:return checkSubmit()">
<p align="center">待驗證的表單</p>
<!--#Include file = "inc/check_formJS.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<%
'==========================================================
' 表單驗證實例
'==========================================================
'1、<!--#Include file = "inc/check_formJS.asp"-->;
'2、繪制表單：name="" onsubmit = "javascript: return checkSubmit()" 注意大小寫;
'3、定義Guo_Error //一句只能出現(xiàn)一個“，”如位數(shù)和確認密碼項須多加“|”指定參數(shù);
'4、Call CheckForm_js("formname,Guo_Error)
'www.china-u.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|確認密碼必須與密碼項保持一致！|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ū)分大小寫地，所以各表單組件的名稱都要注意書寫一致喲~~
'==========================================================
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>表單驗證實例</title>
</head>
<body>
<form name="form1" method="post" action="check_form.asp" onsubmit="javascript:return checkSubmit()">
<p align="center">待驗證的表單</p>
***************************************************************
以上代碼絕大多數(shù)已通過測試，不過是不是都好用，我只能說那個級聯(lián)的下拉菜單用起來不太好用?？纯茨奈蝗市只騑EB美眉加以改進嘍。呵呵
您可能感興趣的文章:
- javascript Zifa FormValid 0.1表單驗證 代碼打包下載
- 收藏的js表單驗證控制代碼大全
- JavaScript 表單驗證正則表達式大全[推薦]
- JavaScript 使用正則表達式進行表單驗證的示例代碼
- js 常用正則表達式表單驗證代碼
- jquery validate.js表單驗證的基本用法入門
- js 回車提交表單兩種實現(xiàn)方法
- jquery ajax提交表單從action傳值到j(luò)sp實現(xiàn)小結(jié)
- 巧用js提交表單輕松解決一個頁面有多個提交按鈕
- js模擬點擊以提交表單為例兼容主流瀏覽器
- JS中的form.submit()不能提交表單的錯誤原因
- angularJS提交表單（form）
- js實現(xiàn)鍵盤Enter鍵提交表單的方法
- Javascript的表單驗證-提交表單
相關(guān)文章
判斷dll文件是否已經(jīng)注冊的ASP函數(shù)代碼
有時候需要判斷服務(wù)器是否按照了dll文件，那么就可以參考下面的代碼進行判斷。2011-09-09
AJAX的簡單應(yīng)用,包括js彈出DIV層、層拖動、ajax后臺讀取數(shù)據(jù)！注意getinfo.asp文件是以utf-8格式保存的，在getinfo.asp里面可以寫讀數(shù)據(jù)庫代碼！2008-08-08
asp漢字中文圖片驗證碼的實現(xiàn)代碼...2007-11-11
用asp讀取MYSQL數(shù)據(jù)庫出現(xiàn)亂碼，讀取到的漢字都是？？？？2008-08-08
這是關(guān)于短信接口的一些調(diào)用方法,asp的，兩個方式,調(diào)用短信接口都比較簡單,但也比較實用2012-01-01
前幾天看到有幾個wordpress都有有新評論自動發(fā)短信提示的功能，我覺得不錯，對于不經(jīng)常在線的管理員特別有幫助，如果有人發(fā)非法信息一下子就知道了，而且發(fā)信息是免費的。2009-11-11
本文減淡概述了解決80040e14錯誤的兩種方法。2009-04-04
一段ASP 偽靜態(tài)代碼...2007-03-03
CreateKeyWord asp實現(xiàn)的由給定的字符串生成關(guān)鍵字的代碼
CreateKeyWord asp實現(xiàn)的由給定的字符串生成關(guān)鍵字的代碼...2007-09-09
用ASP創(chuàng)建MDaemon用戶的代碼...2007-03-03