国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

ASP動態生成的javascript表單驗證代碼

2024-05-04 10:58:48
字體：大 中 小
來源：轉載
供稿：網友
以網上down了一個ASP動態生成Form驗證javascript的代碼，自己擴容了一下。作者的大名我給忘了，不過我記得清楚，從第一條至第九條的代碼都是該作者的原創。至于九至第十五條卻是本人自己加的哦。而且由于本人水平有限，從第九條至第十五條不見得會條條生效啊？呵呵，其實把它貼在這里沒有什么必要的，因為這點小會伎倆誰都會用的，我把它的作用定位為：開發時找不到該函數時到這里拷貝一下就可以了。呵，因為我即沒有刻錄機也沒有移動硬盤。實在是沒有辦法把這些代碼隨身攜帶，不過還好，在北京到處都可以上網。所以就把這個放在這里，用的時候Ctrl+C,再Ctrl+V好了。 
  復制代碼 代碼如下:
<% 
  '**************************************************************** 
  '函數名稱：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=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 
   '參數值 
   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 
  %> 
 

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 方城县| 丰宁| 乐清市| 商洛市| 嘉善县| 玉田县| 临汾市| 桐城市| 桃园县| 北海市| 谷城县| 哈尔滨市| 白银市| 清丰县| 苏尼特右旗| 华安县| 武隆县| 大竹县| 什邡市| 靖西县| 许昌市| 新河县| 汕头市| 镇赉县| 湟源县| 高唐县| 三河市| 余江县| 土默特右旗| 肥城市| 边坝县| 金溪县| 嘉善县| 东乌珠穆沁旗| 永昌县| 特克斯县| 论坛| 电白县| 德江县| 松桃| 张家港市|