% 
  '**************************************************************** 
  '函數(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:確認(rèn)密碼和密碼必須相等的Text類型 
  '8:確認(rèn)不是以以數(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標(biāo)記的Text類型 
  '15:確認(rèn)未被禁用的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=strShowfindJS(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" '確認(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 
  %> 

%@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ù)和確認(rèn)密碼項須多加“|”指定參數(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|確認(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ū)分大小寫地，所以各表單組件的名稱都要注意書寫一致喲~~ 
  '========================================================== 
  %> 
  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>