asp CutStrX字符串截取函數(shù)(過(guò)濾全部HTML標(biāo)記)
更新時(shí)間：2011年07月05日 15:30:51 作者：
asp CutStrX字符串截取函數(shù)(過(guò)濾全部HTML標(biāo)記),比較不錯(cuò)，需要的朋友可以參考下。
復(fù)制代碼 代碼如下:
Function CutStrX(ByVal Str,ByVal StrLen)
Dim l,t,c,i,r
'過(guò)濾全部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)文章
asp Response.flush 實(shí)時(shí)顯示進(jìn)度
如果你知道Response.Flush和Response.Clear，那你就可以不用這樣的等待了。每生成一個(gè)Html頁(yè)面，就用Response.write立即返回一條信息，提示該條數(shù)據(jù)庫(kù)記錄已經(jīng)生成Html。2008-08-08
ASP.NET?MVC+EntityFramework圖片頭像上傳功能實(shí)現(xiàn)
這篇文章主要介紹了ASP.NET?MVC+EntityFramework圖片頭像上傳功能實(shí)現(xiàn)，本文通過(guò)實(shí)例代碼給大家介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或工作具有一定的參考借鑒價(jià)值,需要的朋友可以參考下2023-12-12
[橙色][醬色][紫色][綠色]簡(jiǎn)單分頁(yè)函數(shù)一 常用...2006-08-08
使用AJAX實(shí)現(xiàn)UTF8編碼表單提交到GBK編碼腳本無(wú)亂碼的解決方法
這篇文章主要介紹了用AJAX實(shí)現(xiàn)，多個(gè)不同編碼的項(xiàng)目（GBK，UTF8）互相通過(guò) POST/GET 匯總表單數(shù)據(jù)。最終實(shí)現(xiàn) 使用同一個(gè)頁(yè)面接收 不同編碼的 表單（GBK,UTF8），特別適合 JS 采集項(xiàng)目,需要的朋友可以參考下2020-09-09
全面優(yōu)化ASP應(yīng)用程序的性能的方法...2007-03-03
你是否有時(shí)想知道什么人訪問(wèn)你的站點(diǎn)，什么時(shí)間，IP地址等。下面我就這個(gè)問(wèn)題向大家來(lái)闡述一下。2011-02-02
asp 采集實(shí)戰(zhàn)代碼...2007-08-08
在ASP中連接MySQL數(shù)據(jù)庫(kù)的方法，最好的通過(guò)ODBC方法
在ASP中連接MySQL數(shù)據(jù)庫(kù)的方法，最好的通過(guò)ODBC方法...2007-04-04
ASP利用Google實(shí)現(xiàn)在線翻譯功能
ASP利用Google實(shí)現(xiàn)在線翻譯功能...2006-09-09
ReplaceSaveRemoteFile 替換、保存遠(yuǎn)程圖片 的代碼
ReplaceSaveRemoteFile 替換、保存遠(yuǎn)程圖片 的代碼...2007-09-09