<%
'=================================================
'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
%>