判断中英文结合的字段串长度的小函数

在ASP中，中文也被认为是一个字符，这样就在判断一行多少个字符时，就会与英文发生冲突，用下面的这段代码，就可以搞定

Function Strlen(txt)
    txt=trim(txt)
    x = len(txt)
    y = 0
    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
    next
    Strlen = y

End Function