伏龙阁资源网

ASP动态生成的javascript表单验证代码
站长资源 2024/11/24 佚名
2 0
以网上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美眉加以改进喽。呵呵
广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除！
www.wwsws.com 伏龙阁资源网
39,976影音资源
44,792技术资源
21,817软件资源
651,128站长资源

《魔兽世界》大逃杀！60人新游玩模式《强袭风暴》3月21日上线

暴雪近日发布了《魔兽世界》10.2.6 更新内容，新游玩模式《强袭风暴》即将于3月21 日在亚服上线，届时玩家将前往阿拉希高地展开一场 60 人大逃杀对战。

艾泽拉斯的冒险者已经征服了艾泽拉斯的大地及遥远的彼岸。他们在对抗世界上最致命的敌人时展现出过人的手腕，并且成功阻止终结宇宙等级的威胁。当他们在为即将于《魔兽世界》资料片《地心之战》中来袭的萨拉塔斯势力做战斗准备时，他们还需要在熟悉的阿拉希高地面对一个全新的敌人──那就是彼此。在《巨龙崛起》10.2.6 更新的《强袭风暴》中，玩家将会进入一个全新的海盗主题大逃杀式限时活动，其中包含极高的风险和史诗级的奖励。

《强袭风暴》不是普通的战场，作为一个独立于主游戏之外的活动，玩家可以用大逃杀的风格来体验《魔兽世界》，不分职业、不分装备（除了你在赛局中捡到的），光是技巧和战略的强弱之分就能决定出谁才是能坚持到最后的赢家。本次活动将会开放单人和双人模式，玩家在加入海盗主题的预赛大厅区域前，可以从强袭风暴角色画面新增好友。游玩游戏将可以累计名望轨迹，《巨龙崛起》和《魔兽世界：巫妖王之怒 经典版》的玩家都可以获得奖励。

更新日志

友情链接

杰晶网络 DDR爱好者之家 桃源资源网 杰网资源 富贵资源网 南强小屋 铁雪资源网 幽灵资源网 万梅资源网 狼山资源网 白云岛资源网 昆仑资源网 相思资源网 明霞山资源网 内蒙古资源网 黑松山资源网 茶园资源网 饿虎岗资源网 大旗谷资源网 常春岛资源网 岱庙资源网 兴国资源网 快活林资源网 蝙蝠岛资源网 帝王谷资源网 白云城资源网 伏龙阁资源网 清风细雨楼 天枫庄资源网 圆月山庄资源网 无争山庄资源网 神水资源网 移花宫资源网 神剑山庄资源网 无为清净楼资源网 金钱帮资源网 丐帮资源网 华山资源网 极乐门资源网 小李飞刀资源网 凤求凰客栈 风云阁资源网 金狮镖局 鸳鸯亭资源网 千金楼资源网 更多链接