asp取字符串固定字节长度(原创)

asp中用VBScript脚本作服务端,比如显示新闻,常常会出现新闻标题过长用省略号代替的做法,若标题全为ASCCI字符或非ASCII字符用VBScript自带的Left()函数能很好的解决问题,但现实常常不如人所愿,更常见的是中文字符和ASCII字符混排的情形,而Left()函数默认为Unicode编码,因此带来的问题是Left()函数截取的字符串长度往往并非我们想要的实际标题长度.根据Unicode编码规则,编写此函数,网友们有更好的方法欢迎回复.

'参数
'str:字符串
'num:需要返回的字节数
'返回:函数返回字符串

'返回字符串左边N个byte
Function StrByteLeft(str, num)
Dim tmpStr, flag
flag = 0
tmpStr = ""
 If (Len("□")=1) Then
  Dim i,c
  For i=1 To Len(str)
   c = Asc(Mid(str,i,1))
   If c < 0 Then
    c = c+ 65536
   End If
   If c > 255 Then
    flag = flag + 2
   Else
    flag = flag + 1
   End If
   If flag < num+1 Then
    tmpStr = tmpStr + Mid(str, i, 1)
   Else
    Exit For
   End If
  Next
  Else
  tmpStr=Left(str, num)
 End If
 StrByteLeft = tmpStr
End Function