分享一段ASP表单验证代码

代码如下

"" then          p_len=len(trim(str))          for xx=1 to p_len              if asc(mid(str,xx,1))maxnum then   bymaxnum=true  else  bymaxnum=false end ifend function'最小字符数；超过返回true，否则返回false；maxnum:最大字符数，strmaxnum:字符function byminnum(minnum,strminnum) if len(strminnum)=0 then    isnotcs=true    exit function  end if    isnotcs=false nextend function'是否为非email地址；为非email地址返回true，否则返回false；判断条件：是否含有“@”function IsnotEmail(email)dim names, name, i, cIsnotEmail = falsenames = Split(email, "@")if UBound(names)  1 then   IsnotdEmail = true   exit functionend iffor each name in names   if Len(name)  2 and i  3 then   IsnotEmail = true   exit functionend ifif InStr(email, "..") > 0 then   IsnotEmail = trueend ifend function'包含非法字符；只允许英文字母，数字，"-"，"_"，"."function havespchar(strspchar)   havespchar = false   dim sp,csp   for sp = 1 to Len(strspchar)     csp = Lcase(Mid(strspchar, sp, 1))     if InStr("abcdefghijklmnopqrstuvwxyz_-.", csp) 

登录后复制<!–

–>

以上就是分享一段ASP表单验证代码的详细内容，更多请关注【创想鸟】其它相关文章！