代码如下
<%
'=================================================
'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 if
end function
'最小字符数；超过返回true，否则返回false；maxnum:最大字符数，strmaxnum:字符
function byminnum(minnum,strminnum)
if len(strminnum)<minnum then
byminnum=true
else
byminnum=false
end if
end function
'检查输入不全为或不为汉字，返回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
'是否为非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
'包含非法字符；只允许英文字母，数字，"-"，"_"，"."
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表单验证代码的详细内容。