function strLength(str)
ON ERROR RESUME NEXT
dim WINNT_CHINESE
WINNT_CHINESE = (len("论坛")=)
if WINNT_CHINESE then
dim ltc
dim i
l=len(str)
t=l
for i= to l
c=asc(mid(stri))
if c< then c=c+
if c> then
t=t+
End if
next
strLength=t
else
strLength=len(str)
End if
if errnumber<> then errclear
End function
