分享
 
 
 

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

王朝asp·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

以网上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)

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

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位!|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美眉加以改进喽。呵呵

作者Blog:http://blog.csdn.net/guoguo_206/

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有