asp 中英文字符长度检测判断函数
摘要：functionstrLength(str)ONERRORRESUMENEXTdimWINNT_CHINESEWINNT_CHINESE=(...
function strLength(str)
ON ERROR RESUME NEXT
dim WINNT_CHINESE
WINNT_CHINESE = (len("论坛")=2)
if WINNT_CHINESE then
dim l,t,c
dim i
l=len(str)
t=l
for i=1 to l
c=asc(mid(str,i,1))
if c<0 then c=c+65536
if c>255 then
t=t+1
End if
next
strLength=t
else
strLength=len(str)
End if
if err.number<>0 then err.clear
End function
【asp 中英文字符长度检测判断函数】相关文章：
上一篇：
asp html代码转安全ascii代码
下一篇：
asp 特殊字符屏蔽代码