分享一段ASP表單驗證代碼

代碼如下

<%'================================================='Lonz 通用函數'================================================='含漢字的字串長度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'最大字元數；超過返回true，否則返回false；maxnum:最大字元數，strmaxnum:字元function bymaxnum(maxnum,strmaxnum) if len(strmaxnum)>maxnum then   bymaxnum=true  else  bymaxnum=false end ifend function'最小字元數；超過返回true，否則返回false；maxnum:最大字元數，strmaxnum:字元function byminnum(minnum,strminnum) if len(strminnum)<minnum then   byminnum=true  else  byminnum=false end ifend function'檢查輸入不全為或不為漢字，返回true，否則返回falsefunction 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 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) <= 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 ifnextif InStr(names(1), ".") <= 0 then   IsnotEmail = true   exit functionend ifi = Len(names(1)) - InStrRev(names(1), ".")if i <> 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) <= 0 and not IsNumeric(csp) then       havespchar = true       exit function     end if   nextend function%>