以网上down了一个asp动态生成form验证javascript的代码，自己扩容了一下。作者的大名我给忘了，不过我记得清楚，从第一条至第九条的代码都是该作者的原创。至于九至第十五条却是本人自己加的哦。而且由于本人水平有限，从第九条至第十五条不见得会条条生效啊？呵呵，其实把它贴在这里没有什么必要的，因为这点小会伎俩谁都会用的，我把它的作用定位为：开发时找不到该函数时到这里拷贝一下就可以了。呵，因为我即没有刻录机也没有移动硬盘。实在是没有办法把这些代码随身携带，不过还好，在北京到处都可以上网。所以就把这个放在这里，用的时候ctrl+c,再ctrl+v好了。

<%

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

'函数名称：checkform_js(frmname,errstr)

'功能：用asp的方法动态写出javascript的表单验证的函数checksubmit()

'使用方法：1、&vbcrlf&_

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%>

http://www.w3.org/tr/html4/loose.dtd>

<%

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

' 表单验证实例

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

'1、;

'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区分大小写地，所以各表单组件的名称都要注意书写一致哟~~

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

%>

待验证的表单

***************************************************************

以上代码绝大多数已通过测试，不过是不是都好用，我只能说那个级联的下拉菜单用起来不太好用。看看哪位仁兄或web美眉加以改进喽。呵呵

更多信息请查看IT技术专栏