asp动态生成的javascript表单验证代码
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
以网上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)&am p;)&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))&&(do cument.&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类型