<script src='Http://code.xrss.cn/AdJs/csdntitle.Js'></script>
提供你一个超级好用的函数,使用方法
response.write FixString(需要截取的字符串,字符串字节长度汉字算2个,如果被截取添加省略点的个数)
Function FixString(ByVal strWord, ByVal intByteLength, ByVal intPadDotAmount)
If strWord > "" Then
If Length(strWord) <= intByteLength Then
FixString = strWord
Else
Dim i
Dim intLength
Dim strChar
Dim bytChar
intLength = 0
For i = 1 to Len(strWord)
strChar = Mid(strWord, i, 1)
bytChar = Asc(Mid(strWord, i, 1))
If bytChar < 0 or bytChar > 255 Then
intLength = intLength + 2
Else
intLength = intLength + 1
End If
If intLength > intByteLength Then Exit For
FixString = FixString & strChar
Next
FixString = FixString & String(intPadDotAmount, ".")
End If
Else
FixString = ""
End If
End Function
<script src='Http://code.xrss.cn/AdJs/csdnEnd.Js'></script>
response.write FixString(需要截取的字符串,字符串字节长度汉字算2个,如果被截取添加省略点的个数)
Function FixString(ByVal strWord, ByVal intByteLength, ByVal intPadDotAmount)
If strWord > "" Then
If Length(strWord) <= intByteLength Then
FixString = strWord
Else
Dim i
Dim intLength
Dim strChar
Dim bytChar
intLength = 0
For i = 1 to Len(strWord)
strChar = Mid(strWord, i, 1)
bytChar = Asc(Mid(strWord, i, 1))
If bytChar < 0 or bytChar > 255 Then
intLength = intLength + 2
Else
intLength = intLength + 1
End If
If intLength > intByteLength Then Exit For
FixString = FixString & strChar
Next
FixString = FixString & String(intPadDotAmount, ".")
End If
Else
FixString = ""
End If
End Function