鞍山哪里做网站,泉州中小企业网站制作,wordpress设置缩略图后调用缩略图,具有品牌的做网站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
