应用技巧

关注公众号 jb51net

关闭
首页 > 网络编程 > ASP编程 > 应用技巧 >

ASP动态生成的javascript表单验证代码

作者:

ASP动态生成的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位!|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美眉加以改进喽。呵呵
您可能感兴趣的文章:
阅读全文