欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

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

程序员文章站 2022-07-02 20:09:51
<%*****************************************************************************函数名称:Che...
<%
*****************************************************************************
函数名称: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 = /^https://[A-Za-z][A-Za-z0-9-]*[A-Za-z]*./;"&vbCrlf&_
  "var re2 = /^https://[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&