谈谈我对截取一定长度字符串的一点心得，欢迎指正

        vbs和js都提供了截取一定长度的字符串的函数，但有一个问题是这些函数都将中文字符视为1个字节，而不是正常的2个字节，如果这些输入的数据要提交到数据库中的话，很可能这些数据的真正长度回答与数据库中该字段所允许的最大长度，于是就出错了。
        最开始我不会这样做，看了 cheery_ke 兄发表的帖子
http://www.*dev**-club.com/club/bbs/showAnnounce.asp?id=1227955
后才知道该怎么做。具体程序是
'--------------------*****START*****--------------------
FUNCTION strLeft(str,num)
DIM p_str,p_num
    p_str = ""
    p_num = 0    '定义变量，标记中文为2字节时的实际字符数
    
IF TRIM(str)"" THEN
    FOR i = 1 TO num
        IF asc(mid(str,i,1))>255 OR ASC(mid(str,i,1))       p_num = p_num + 2
        Else
       p_num = p_num + 1
        End IF
    IF p_num > num THEN EXIT FOR     
    
    NEXT
    
    p_str = Left(str,i-1)    '把i-1替换为i，则产生与“说明”中相反的情况。
END IF
strLeft=p_str
END FUNCTION
'--------------------******END******--------------------
        可是在实际使用中发现cheery_ke兄提供的程序有些问题：如果提交的字符串字数少于所允许的最大字数则程序汇报错，原因是 FOR    循环处的循环次数大于字符串的实际长度，导致下一句中mid函数的参数 i    大于字符串的长度，出现错误。