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
33
End Function
34' 计算字符串长度，1个汉字为两个字节
35Function 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
47content= FixString("测试,.ba我实,<>",10,0)
48response.Write(content)
49%>
<%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 33
End 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 46
End Function47
content= FixString("测试,.ba我实,<>",10,0)48
response.Write(content)49
%>
