登录  /  注册

分享一段ASP表单验证代码

怪我咯
发布: 2017-03-30 13:23:07
原创
1131人浏览过

代码如下

<%
&#39;=================================================
&#39;Lonz 通用函数
&#39;=================================================
&#39;含汉字的字符串长度
function strlen(str) 
      dim p_len 
      p_len=0 
      strlen=0 
      if trim(str)<>"" then 
         p_len=len(trim(str)) 
         for xx=1 to p_len 
             if asc(mid(str,xx,1))<0 then 
                strlen=int(strlen) + 2 
             else 
                strlen=int(strlen) + 1 
             end if 
         next 
      end if 
end function
&#39;最大字符数;超过返回true,否则返回false;maxnum:最大字符数,strmaxnum:字符
function bymaxnum(maxnum,strmaxnum)
 if len(strmaxnum)>maxnum then 
  bymaxnum=true 
 else
  bymaxnum=false
 end if
end function
&#39;最小字符数;超过返回true,否则返回false;maxnum:最大字符数,strmaxnum:字符
function byminnum(minnum,strminnum)
 if len(strminnum)<minnum then 
  byminnum=true 
 else
  byminnum=false
 end if
end function
&#39;检查输入不全为或不为汉字,返回true,否则返回false
function isnotcs(strcs)
dim getcs
 for cp=1 to len(strcs)
  getcs=mid(strcs,cp,1)
  if asc(getcs)>=0 then 
   isnotcs=true
    exit function
  end if 
   isnotcs=false
 next
end function
&#39;是否为非email地址;为非email地址返回true,否则返回false;判断条件:是否含有“@”
function IsnotEmail(email)
dim names, name, i, c
IsnotEmail = false
names = Split(email, "@")
if UBound(names) <> 1 then
   IsnotdEmail = true
   exit function
end if
for each name in names
   if Len(name) <= 0 then
     IsnotEmail = true
     exit function
   end if
   for i = 1 to Len(name)
     c = Lcase(Mid(name, i, 1))
     if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then
       IsnotEmail = true
       exit function
     end if
   next
   if Left(name, 1) = "." or Right(name, 1) = "." then
      IsnotEmail = true
      exit function
   end if
next
if InStr(names(1), ".") <= 0 then
   IsnotEmail = true
   exit function
end if
i = Len(names(1)) - InStrRev(names(1), ".")
if i <> 2 and i <> 3 then
   IsnotEmail = true
   exit function
end if
if InStr(email, "..") > 0 then
   IsnotEmail = true
end if
end function
&#39;包含非法字符;只允许英文字母,数字,"-","_","."
function havespchar(strspchar)
   havespchar = false
   dim sp,csp
   for sp = 1 to Len(strspchar)
     csp = Lcase(Mid(strspchar, sp, 1))
     if InStr("abcdefghijklmnopqrstuvwxyz_-.", csp) <= 0 and not IsNumeric(csp) then
       havespchar = true
       exit function
     end if
   next
end function
%>
登录后复制

以上就是分享一段ASP表单验证代码的详细内容,更多请关注php中文网其它相关文章!

智能AI问答
PHP中文网智能助手能迅速回答你的编程问题,提供实时的代码和解决方案,帮助你解决各种难题。不仅如此,它还能提供编程资源和学习指导,帮助你快速提升编程技能。无论你是初学者还是专业人士,AI智能助手都能成为你的可靠助手,助力你在编程领域取得更大的成就。
来源:php中文网
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系admin@php.cn
最新问题
热门教程
更多>
最新下载
更多>
网站特效
网站源码
网站素材
前端模板
关于我们 免责申明 意见反馈 讲师合作 广告合作 最新更新
php中文网:公益在线php培训,帮助PHP学习者快速成长!
关注服务号 技术交流群
PHP中文网订阅号
每天精选资源文章推送
PHP中文网APP
随时随地碎片化学习
PHP中文网抖音号
发现有趣的

Copyright 2014-2024 https://www.php.cn/ All Rights Reserved | php.cn | 湘ICP备2023035733号