我用left函数来返回文章内容中前50个字简介，可是这样的方法就是如果碰到文章中有非汉字的部分(例如abcd)的时候，返回的值就会出现错误！
我想把非汉字或中文标点的代码过滤掉，请问应该怎么写这个函数呢？

ps:或者有没有其他的方法可以实现返回文章内容中前50个字简介功能的？mid?

也许可以看看那些blog的代码，他们都有很完善的阶段功能啊

试试leftb函数

有没有有成功经验的，发个代码出来学习学习~~

函数功能：截取指定长度字符
传递参数：str（所要截取的内容）,strlen（所要截取的长度）
使用方法：TitleLeft(rs("title"),27)

Function TitleLeft(str,strlen)    
    Dim l,t,c, i
    l=len(str)
    t=0
    For i=1 to l
        c=Abs(Asc(Mid(str,i,1)))
    If c>255 then
        t=t+2
    Else
        t=t+1
    End if
    If t>=strlen then
        TitleLeft=left(str,i)&".."
        Exit for
    Else
        TitleLeft=str&""
    End If
    Next
End Function

函数功能：截取指定长度字符
传递参数：str（所要截取的内容）,strlen（所要截取的长度）
使用方法：TitleLeft(rs("title"),27)

Function TitleLeft(str,strlen)   
    Dim l,t,c, i
    l=len(str)
    t=0
    For i=1 to l
        c=Abs(Asc(Mid(str,i,1)))
    If c>255 then
        t=t+2
    Else
        t=t+1
    End if
    If t>=strlen then
        TitleLeft=left(str,i)&".."
        Exit for
    Else
        TitleLeft=str&""
    End If
    Next
End Function
首先提示left函数对象不对，改成leftb后不报错了，但是出现了截断混乱，TitleLeft(rs("title"),400) 和TitleLeft(rs("title"),900)
的结果是一个只显示了2行字，一个满屏幕了！！
所以还是有问题。。
截取汉字和英文字符并存的文章的效果很不理想诶 。
那位有更好的代码的发我看看。