 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
以网上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()">; \\\'**************************************************************** \\\'帮助： \\\'--------------------------------------------------------------- \\\'・参数说明： \\\'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.knowsky.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美眉加以改进喽。呵呵 返回类别: 教程 上一教程: ASP用存储过程实现数据分页 下一教程: 利用ASP将HTML格式数据传输给EXCEL(2) 您可以阅读与"ASP动态生成的JAVASCRIPT表单验证代码"相关的教程: · 用ASP动态生成JAVASCRIPT的表单验证代码 · 复杂表单的动态生成与动态验证 · 如何用ASP动态生成XML文件 · 在ASP网站设计中表单验证 · ASP动态生成WBMP图片的程序 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
