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))<0 THEN    '判断下一个欲取的字符所占字节数
            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  大于字符串的长度，出现错误。
       我针对这个程序作了如下改进：
function strLeft(str,num)
dim p_str,p_num
    p_str = ""
    p_num = 0    
            
if trim(str) <> "" then
    p_len = len(str)
    for i = 1 to p_len
        if asc(mid(str,i,1)) > 255 or asc(mid(str,i,1)) < 0 then
            p_num = p_num + 2
        else
            p_num = p_num + 1
        end if
        
        if p_num > num then
            p_str = Left(str,i-1)  
            exit for
        else
            p_str = str
        end if
    next
end if

strLeft=p_str
end function
          这样就不会出现那个问题了。

          后记：我写这篇文章不是为了通过指出他人的漏洞来抬高自己，我只是个学习asp没多久的freshman，而且在这个论坛也得到过cheery_ke兄的帮助，我是很感激和敬佩他的。指出这个问题是为了一些像我这样的菜鸟在遇到这个问题的时候能少绕些弯路，而且自己在这个论坛学了这个多东西却一直无以回报，深感歉疚，于是写下自己的一点心得算做自己的一番心意，至于是否贻笑大方就不得而知了。