免费做网站刮刮卡,佛山专业网站制作设计,百度竞价推广自己可以做吗,网站微信支付开发1%2字符串截取函数#xff0c;用于信息标题 3strWord需要截取的字符串 4intByteLength显示的字节长度#xff0c;1个汉字两个字节 5intPadDotAmount背截取后尾部补充点的个数 6字符串截取函数#xff0c;用于信息标题 7Function FixString()Function FixString(ByVal st… 1% 2 字符串截取函数用于信息标题  3 strWord需要截取的字符串  4 intByteLength显示的字节长度1个汉字两个字节  5 intPadDotAmount背截取后尾部补充点的个数  6 字符串截取函数用于信息标题  7Function 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个汉字为两个字节 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 Function47content FixString(测试,.ba我实,,10,0)48response.Write(content)49%转载于:https://www.cnblogs.com/zwl12549/archive/2007/08/13/853221.html