復(fù)制代碼 代碼如下:
Function CutStrX(ByVal Str,ByVal StrLen)
Dim l,t,c,i,r
'過濾全部HTML標(biāo)記
Set r=New RegExp
r.Global=True
r.MultiLine=True
r.Pattern="(/?[A-Za-z][A-Za-z0-9]*[^>]*>)"
str=r.Replace(str," ")
Set r=Nothing
l=Len(str)
t=0
For i=1 To l
c=AscW(Mid(str,i,1))
If c0 Or c>255 Then t=t+2 Else t=t+1
IF t>=StrLen Then
CutStrX=Left(Str,i)"..."
Exit For
Else
CutStrX=Str
End If
Next
End Function
您可能感興趣的文章:- asp截取字符串的兩種應(yīng)用
- asp下實(shí)現(xiàn)截取字符串特定部分內(nèi)容函數(shù)
- asp 字符串截取函數(shù)
- GetBody asp實(shí)現(xiàn)截取字符串的代碼
- 用asp實(shí)現(xiàn)的截取指定格式字符串的代碼
- asp從字符串里截取N個帶HTML的字符的函數(shù)
- asp截取指定英漢混合字符串_支持中文
- ASP.NET 字符串截取
- asp實(shí)現(xiàn)截取字符串函數(shù)
