1
<
%
2
'
字符串截取函数，用于信息标题
3
'
strWord需要截取的字符串
4
'
intByteLength显示的字节长度，1个汉字两个字节
5
'
intPadDotAmount背截取后尾部补充点的个数
6
'
字符串截取函数，用于信息标题
7
Function FixString()
Function FixString(ByVal strWord, ByVal intByteLength, ByVal intPadDotAmount) 8 If strWord > "" Then 9 If Length(strWord) <= intByteLength Then 10 FixString = strWord 11 Else 12 Dim i 13 Dim intLength 14 Dim strChar 15 Dim bytChar 16 intLength = 0 17 For i = 1 to Len(strWord) 18 strChar = Mid(strWord, i, 1) 19 bytChar = Asc(Mid(strWord, i, 1)) 20 If bytChar < 0 or bytChar > 255 Then 21 intLength = intLength + 2 22 Else 23 intLength = intLength + 1 24 End If 25 If intLength > intByteLength Then Exit For 26 FixString = FixString & strChar 27 Next 28 FixString = FixString & String(intPadDotAmount, ".") 29 End If 30 Else 31 FixString = "" 32 End If 33End Function
34
'
计算字符串长度，1个汉字为两个字节
35
Function Length()
Function Length(ByVal strWord) 36 If strWord > "" Then 37 Dim i, bytChar 38 Length = 0 39 For i = 1 to Len(strWord) 40 bytChar = Asc(Mid(strWord, i, 1)) 41 If bytChar < 0 or bytChar > 255 Then Length = Length + 2 Else Length = Length + 1 42 Next 43 Else 44 Length = -1 45 End If 46End Function
47
content
=
FixString(
"
测试,.ba我实,<>
"
,
10
,
0
)
48
response.Write(content)
49
%
>
转载于:https://www.cnblogs.com/zwl12549/archive/2007/08/13/853221.html
