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