测试了utf8和gbk下 两个文件。中文两位英文一位
Function LenStr(ByVal StrValue) Dim a,i for i=1 to Len(StrValue) a=Mid(StrValue,i,1) if AscW(a)>127 or AscW(a)<0 then LenStr=LenStr+2 else LenStr=LenStr+1 end if next End Function response.Write(LenStr("你好")&"<br>")
吉公网安备 22020202000301号