InterceptString()为什么不能区分中文与英文数字?

从网上找了一个可以根据字符串中所含中文英文的多少，自动截取字符串长度的函数。
 代码如下：

Function InterceptString(txt,length)
dim x,y,ii
txt=trim(txt)
x = len(txt)
y = 0
if x >= 1 then
    for ii = 1 to x
        if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) >255 then
            y = y + 2
        else
            y = y + 1
        end if
        if y >= length then
            txt = left(txt,ii) '字符串限长
            exit for
        end if
    next
    if len(txt) < x then
        InterceptString = txt & ".."
    else
        InterceptString = txt
    end if
else
    InterceptString = ""
end if
End Function

结果我在使用的时候，发现这个函数根本不能区别中文和英文。

经过一番查找，发现问题出在这一句：

if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) >255 then

因为我的网站使用的是utf-8编码，所以这句应该改为：

if ascW(mid(txt,ii,1)) < 0 or ascW(mid(txt,ii,1)) >255 then

当然如果你用的是gb-2312编码就不需要修改了。

附：
AscW 是为使用 Unicode 字符的 32 位平台提供的。 它返回 Unicode （宽型）字符代码，因此可以避免从 ANSI 到 Unicode 的代码转换。