asp CutStrX字符串截取函数(过滤全部HTML标记)

1. 
   
2. Function CutStrX(ByVal Str,ByVal StrLen)
   
3. Dim l,t,c,i,r
   
4. 
   
5. '过滤全部HTML标记
   
6. Set r=New RegExp
   
7. r.Global=True
   
8. r.MultiLine=True
   
9. r.Pattern="(</?[A-Za-z][A-Za-z0-9]*[^>]*>)"
   
10. str=r.Replace(str," ")
    
11. Set r=Nothing
    
12. 
    
13. l=Len(str)
    
14. t=0
    
15. For i=1 To l
    
16. c=AscW(Mid(str,i,1))
    
17. If c<0 Or c>255 Then t=t+2 Else t=t+1
    
18. IF t>=StrLen Then
    
19. CutStrX=Left(Str,i)&"..."
    
20. Exit For
    
21. Else
    
22. CutStrX=Str
    
23. End If
    
24. Next
    
25. End Function

复制代码