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

最新推荐文章于 2024-04-25 16:43:08 发布
huyuan1984
最新推荐文章于 2024-04-25 16:43:08 发布
阅读量412
点赞数
分类专栏： asp 文章标签： javascript asp function email vbscript html
asp 专栏收录该内容
1 篇文章 0 订阅
订阅专栏
<%

'*****************************************************************************

'函数名称：CheckForm_JS(frmName,errStr)

'功能：用ASP的方法动态写出JavaScript的表单验证的函数checkSubmit()

'使用方法：1、<!--Include File=URL+本函数所在的页>;

'         2、<form οnsubmit="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 = //___FCKpd___0/;"&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)

'=======================================================================================



 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" οnsubmit="JavaScript:return checkSubmit()">



  <p align="center">待验证的表单</p>

*********************************************************************************
huyuan1984
关注
0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
[转]ASP动态生成的javascript表单验证代码

<%*****************************************************************************函数名称：CheckForm_JS(frmName,errStr)功能：用ASP的方法动态写出JavaScript的表单验证的函数checkSubmit()使用方法：1、; 2
复制链接

扫一扫