asp CutStrX字符串截取函數(shù)(過濾全部HTML標(biāo)記)
更新時(shí)間：2011年07月05日 15:30:51 作者：
asp CutStrX字符串截取函數(shù)(過濾全部HTML標(biāo)記),比較不錯，需要的朋友可以參考下。
復(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 c<0 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
相關(guān)文章
GetBody asp實(shí)現(xiàn)截取字符串的代碼
GetBody asp實(shí)現(xiàn)截取字符串的代碼...2007-09-09
asp分頁計(jì)算代碼2008-03-03
asp WAP獲取手機(jī)終端信息的一段代碼...2007-11-11
驗(yàn)證碼識別技術(shù)...2007-02-02
ASP+COM不得不注意的問題...2007-03-03
生成rss和xml聚合主要是方便訂閱，讓用戶快速知道您的網(wǎng)站的更新。2009-02-02
一段在asp中加密與解密對應(yīng)的函數(shù)...2007-03-03
利用ASP規(guī)劃聊天室...2006-09-09
最近發(fā)現(xiàn)很多同仁對我的網(wǎng)站比較青睞，同事幫我分析網(wǎng)站log時(shí)，驚訝的發(fā)現(xiàn)：2M的log居然有將近1M都是測試我網(wǎng)站的安全性的，其中至少0.5M的log來自WVS。2010-04-04
這篇文章主要介紹了ASP編碼和解碼函數(shù)的相關(guān)資料，需要的朋友可以參考下2015-10-10