网络编程
位置:首页>> 网络编程>> Asp编程>> 用ASP动态生成JS表单验证代码(3)

用ASP动态生成JS表单验证代码(3)

作者:greenness 来源:greenness的专栏 发布时间:2007-09-30 20:38:00 

标签:表单,验证,动态

4、函数CheckForm_JS(frmName,errStr)。这个函数的作用是最后将一个个javascript的if判断整合起来,代码如下:



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 xiaotian 2002"&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&_
strShow&_
"else"&vbCrlf&_
"return true;"&vbCrlf&_
"}"&vbCrlf&_
"//-->"&vbCrlf&_
"</script>"
Response.Write strShow
End Sub



大家注意到这里的一段:

if i<>0 then
strShow=strShow&"else "&findJS(frmName,tmpArr(i))
else
strShow=strShow&findJS(frmName,tmpArr(i))
end if


作用是把第1个以后javascript的if语句写成else if,而

"var emailReg = /^[_a-z0-9]+@([_a-z0-9]+\.)+[a-z0-9]{2,3}$/;"&vbCrlf&_
"var pwdReg = /[a-z0-9]$/;"&vbCrlf&_


段代码就是正则表达式的定义了,大家可以根据需要扩充。

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com