ASP 求字符串长度。汉字算两个字符，英文算一个字符。

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
找到答案
Function strLength(str)
If (len("飞鸟")=2) then
Dim l,t,c,i
l=Len(str)
t=l
For i=1 To l
c=asc(mid(str,i,1))
If c<0 Then
c=c+65536
End If
' asc对中文字符求出来的值可能为负数，
' 加上65536就可求出它的无符号数值
' -1在机器内是用补码表示的0xffff,
' 其无符号值为65535,65535=-1+65536
' 其他负数依次类推。
If c>255 Then
t=t+1
End If
Next
strLength=t
Else
strLength=len(str)
End If
End Function

ASP 求字符串长度。汉字算两个字符，英文算一个字符。 asp截取字符串长度问题 求字符串长度的函数 ASP.NET中怎样验证字符串长度 急~~asp 取一段字符串中的汉字 编写一个求字符串长度的程序。 填空：函数实现求字符串长度 关于求字符串长度的问题 ASP一个关于取字符串长度的问题 asp中Replace待替换字符串有没有长度限制？