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=strShowfindJS(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>