登录模块加载中...
会员投稿 投稿指南 今天是:
打印本页 | 关闭窗口 | 双击滚屏 您的位置首页>>网页制作学习园地>>网页制作>>网页制作入门>>用ASP动态生成JS的表单验证代码
用ASP动态生成JS的表单验证代码
来源:不详 ‖ 作者:佚名 ‖ 点击: ‖ 时间:14-01-04 11:17:17 ‖ 【 】‖ 我要投稿
     "}"&vbCrlf&_  
       "//-->"&vbCrlf&_  
       ""&vbCrlf&_   
%> 
  这里的vbCrlf是一个回车换行,&是连接符,&_是代码换行连接的字符。 
  3、这段代码的头和尾是基本固定不变的,变化的是中间的if判断部分,我们可以先把这部分写成函数,小田已经写好一个了,大家可以参考一下,下面是代码: 
   
以下是引用片段: 
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  
""else"&vbCrlf&_  
""return true;"&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  
""else"&vbCrlf&_  
""return true;"&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  
""else"&vbCrlf&_  
""return true;"&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  
""else"&vbCrlf&_  
""return true;"&vbCrlf  
Exit Function  
Case "4" "必须大于指定位数的Text类型  
findJS="if (document."&frmName&"."&tm
|<< << < 1 2 3 4 5 > >> >>|
加入收藏:  加入收藏夹  | 发送给好友:  发送给好友
责任编辑:admin
相关文章列表
请文明参与讨论,禁止漫骂攻击。  
网友评论