使用asp输出文字超出字数使用省略号结尾

使用asp制作动态页面或者生成静态页面时，需要在某些特定区域输出不超过固定字数的字符串，如果输出的字符数量超过字数上限则使用省略号代替的方法：

Str002：字符串
L001：限制字数

'字数输出省略号控制开始
Function Strleft(Str002,L001) 
Temp_Str=Len(Str002) 
For I002=1 To Temp_Str 
Test_Str=(Mid(Str002,I002,1)) 
Strleft=Strleft&Test_Str
If Asc(Test_Str)>0 Then 
lens001=lens001+1
Else 
lens001=lens001+2
End If
    If lens001>L001 Then
    Strleft=Strleft&"..."
    Exit For 
    End if
Next 
'Strleft=Strleft&"..."
End Function 

'字数输出省略号控制结束