以网上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&_
  "

Server Application Error详细解决办法 将身份证从15位升级为18位的函数

评论 (0) All