'*************测字符串长度**************

Function CheckStringLength(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
    CheckStringLength = y

End Function

'*************  截取字符串  **************

function InterceptString(txt,length)
    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(trim(txt),ii)    '字符串限长
                exit for
            end if
        next
        InterceptString = txt
    else
        InterceptString = ""
    end if

End Function