asp中用VBScript脚本作服务端,比如显示新闻,常常会出现新闻标题过长用省略号代替的做法,若标题全为ASCCI字符或非ASCII字符用VBScript自带的Left()函数能很好的解决问题,但现实常常不如人所愿,更常见的是中文字符和ASCII字符混排的情形,而Left()函数默认为Unicode编码,因此带来的问题是Left()函数截取的字符串长度往往并非我们想要的实际标题长度.根据Unicode编码规则,编写此函数,网友们有更好的方法欢迎回复.
'参数'str:字符串'num:需要返回的字节数'返回:函数返回字符串
'返回字符串左边N个byteFunction StrByteLeft(str, num)Dim tmpStr, flagflag = 0tmpStr = "" 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 = tmpStrEnd Function
