国产片侵犯亲女视频播放_亚洲精品二区_在线免费国产视频_欧美精品一区二区三区在线_少妇久久久_在线观看av不卡

服務器之家：專注于服務器技術及軟件下載分享
分類導航

PHP教程|ASP.NET教程|Java教程|ASP教程|編程技術|正則表達式|C/C++|IOS|C#|Swift|Android|VB|R語言|JavaScript|易語言|vb.net|

服務器之家 - 編程語言 - ASP教程 - ASP動態生成的javascript表單驗證代碼

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

2019-10-31 13:20asp代碼網 ASP教程

以網上down了一個ASP動態生成Form驗證javascript的代碼，自己擴容了一下。作者的大名我給忘了，不過我記得清楚，從第一條至第九條的代碼都是該作者的原創。至于九至第十五條卻是本人自己加的哦。而且由于本人水平有限，從第九

以網上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&_  
   "//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&_  
   "//-->"&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>

 
  *************************************************************** 
  以上代碼絕大多數已通過測試，不過是不是都好用，我只能說那個級聯的下拉菜單用起來不太好用。看看哪位仁兄或WEB美眉加以改進嘍。呵呵

延伸 · 閱讀

精彩推薦
主站蜘蛛池模板： 久久男人免费视频 | 国产99久久精品 | 国产精品原创av片国产免费 | 91高清在线 | 中文字幕 在线观看 | 日韩在线精品视频 | 日韩一级精品视频在线观看 | 国变精品美女久久久久av爽 | 日韩中文字幕在线播放 | 日韩三区 | 亚洲精品电影在线观看 | av成人免费在线观看 | 永久av | 日韩在线小视频 | 天天操天天干天天插 | 亚洲国产精品成人 | 污片网站 | 欧美日韩精品一区二区三区蜜桃 | 久久久久高清视频 | 亚洲福利精品 | 国产精品久久久久久久久 | 可以免费在线观看av的网站 | 国产精品一区二区无线 | 国产黄色小视频 | 久久久国产一区二区三区 | 台湾黄色网 | 亚洲va中文字幕 | 一区二区日韩 | 正在播放国产精品 | 国产成人在线一区二区 | 中国一极毛片 | 国产农村妇女精品久久 | 黄在线免费观看 | 亚洲午夜久久 | 欧美日韩不卡 | 91精品国产91久久久久 | 久久久美女视频 | 欧美一区二区三区在线看 | 欧美日韩精品久久久 | 国产精品久久久久久久久免费桃花 | 毛片91|