% 
  '**************************************************************** 
  '函數名稱：CheckForm_JS(frmName,errStr) 
  '功能：用ASP的方法動態寫出javascript的表單驗證的函數checkSubmit() 
  '使用方法：1、!--Include File=URL+本函數所在的頁>; 
  ' 2、form onsubmit="javascript:return checkSubmit()">; 
  '原作者已被忘卻，二次開發作者：Guo.Q.M 
  '最后更新：2004 
  '**************************************************************** 
  '幫助： 
  '--------------------------------------------------------------- 
  '·參數說明： 
  'frmName:表單域的名稱 
  'errStr:驗證列表，如："num|3|型號必須不小于8位|8,email|5|請輸入正確的email格式"，這里 
  ' num表示表單域名稱，3表示驗證參數，8表示不小于的位數（可選） 
  ' 
  '·驗證參數列表： 
  '0:必填的Text類型 
  '1:必填的ListMenu類型 
  '2:必須為數字的Text類型 
  '3:必須為指定位數的Text類型 
  '4:必須大于指定位數的Text類型 
  '5:必須為Email的Text類型 
  '6:必須為a-z或0-9的字符的Text類型 
  '7:確認密碼和密碼必須相等的Text類型 
  '8:確認不是以以數字開頭的Text類型 
  '9:必須包含10-888888格式的Text類型 
  '10:不得包含中文、空格及其他非法字符的Text類型，即只能包含"_""-""0-9""a-z"A-Z" 
  '11:必須只包含數字及"-"在內的Text類型 
  '12:必須為正確網址的Text類型 
  '13:必須小于指定位數的Text類型 
  '14:不得包含HTML標記的Text類型 
  '15:確認未被禁用的Select類型必須選擇 格式:檢查的表單項|15|提示信息|關聯項" 
  '注意：如有級聯菜單，請將級聯菜單的驗證過程放到最后檢驗！！！！ 
  '------------------------------------------------------------------------ 
  %> 
  % 
  Sub CheckForm_JS(frmName,errStr) 
  Dim tmpArr 
  Dim i 
  Dim strShow '輸出JS的字符串 
   '獲取錯誤列表，建立數組 
   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 
   '參數值 
   i=0 
   '獲取錯誤列表，建立數組 
   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" '必須為數字的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" '必須為指定位數的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" '必須大于指定位數的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" '確認以數字開頭的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" '確認只包含英文字母及"-","_"在內的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" '確認只包含數字及"-"在內的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" '確認是否為有效網址！ 
   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" '確認不大于固定位數的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|請選擇城市信息 
  '注：級聯菜單第1項當selectedIndex!=0時，第2項第3項被禁用！無須檢查其他兩項 
  '當級聯菜單第1項selectedIndex==0時，第2項的selectedIndex不能為0,第二項的selectedIndex!=0時，第3項的selectedIndex也不能為0 
  '此項用于檢查國家/省/市三項級聯菜單，當國家不為中國時，省市可不填，為中國時，必須填寫省以及相對的市！ 
   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|提示信息|關聯項"注：當關聯項為第一項時，確認開始！ 
   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 //一句只能出現一個“，”如位數和確認密碼項須多加“|”指定參數; 
  '4、Call CheckForm_js("formname,Guo_Error) 
  'www.china-u.com 
  '========================================================== 
   Dim Guo_Error 
   Guo_Error ="text|0|文本項必須填寫!," 
   Guo_Error = Guo_Error  "number|0|數字項必須填寫且必須為數字！," 
   Guo_Error = Guo_Error  "number|2|數字項必須為數字!," 
   Guo_Error = Guo_Error  "digital|3|位數項必須為６位!|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|用戶名不能以數字開頭!," 
   Call CheckForm_js("form1",Guo_Error) 
  '========================================================== 
  ' 表單驗證流程 
  '========================================================== 
  '1、通過split(Guo_Error,".")拆分至數組tempArr(); 
  '2、通過split(tempArr,"|")拆分至數組tempArr(); 
  '3、Select Case split(tempArr(i+1),"|")執行驗證及輸出錯誤提示信息split(tempArr(i+2)); 
  '4、javascript區分大小寫地，所以各表單組件的名稱都要注意書寫一致喲~~ 
  '========================================================== 
  %> 
  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>