Partager un morceau de code de vérification du formulaire ASP

怪我咯
Libérer: 2017-03-30 13:23:07
original
1306 Les gens l'ont consulté

Le code est le suivant

<%
&#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
%>
Copier après la connexion


Ce qui précède est le contenu détaillé de. pour plus d'informations, suivez d'autres articles connexes sur le site Web de PHP en chinois!

Étiquettes associées:
source:php.cn
Déclaration de ce site Web
Le contenu de cet article est volontairement contribué par les internautes et les droits d'auteur appartiennent à l'auteur original. Ce site n'assume aucune responsabilité légale correspondante. Si vous trouvez un contenu suspecté de plagiat ou de contrefaçon, veuillez contacter admin@php.cn
Tutoriels populaires
Plus>
Derniers téléchargements
Plus>
effets Web
Code source du site Web
Matériel du site Web
Modèle frontal