给你个参考~~~照下面的做应该没有问题~~我也是一直都用这个的。
<%
'#####截取字符长度《一》
'#####str为要截取字符串
'##### n为需要截取的长度
Function LeftTrue(str,n)
If Len(str) <= (n/2) Then
LeftTrue = str
Else
Dim TStr, l, t, c
l = Len(str) : TStr="" : t=0
For i = 1 To l
c = Asc(Mid(str,i,1))
If c < 0 Then c = c + 65536
If c > 255 Then
t = t + 2
Else
t = t + 1
End If
If t > n Then Exit For
TStr = TStr & (Mid(str,i,1))
Next
LeftTrue = TStr
End If
End Function
%>