asp去除html的函數(shù)代碼分析附實(shí)例說(shuō)明
更新時(shí)間：2012年01月23日 12:14:38 作者：
asp去除html的函數(shù)代碼分析附實(shí)例說(shuō)明，經(jīng)腳本之家編程測(cè)試確實(shí)好用。
下面這段代碼，不會(huì)替換ld<sad中間的<，所以內(nèi)容仍然是正常的
復(fù)制代碼 代碼如下:
<%
function nohtml(str)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(\<.[^\<]*\>)"
str=re.replace(str," ")
re.Pattern="(\<\/[^\<]*\>)"
str=re.replace(str," ")
str=replace(str," ","")
str=replace(str," ","")
nohtml=str
set re=nothing
end function
str="<title>sadjksjdl腳本之家歡迎你sajdljsald<sadsadsad<br>" '這里是測(cè)試
response.write nohtml(str)
%>
結(jié)果為：
復(fù)制代碼 代碼如下:
sadjksjdl腳本之家歡迎你sajdljsald<sadsadsad
不過(guò)下面的代碼是不問(wèn)的，直接看到<就忘后面無(wú)限制的匹配
復(fù)制代碼 代碼如下:
<%
Function dropHtml(Byval strHTML)
Dim objRegExp, Match, Matches
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
'取閉合的<>
objRegExp.Pattern = "<.+?>"
'進(jìn)行匹配
Set Matches = objRegExp.Execute(strHTML)
' 遍歷匹配集合，并替換掉匹配的項(xiàng)目
For Each Match in Matches
strHtml=Replace(strHTML,Match.Value,"")
Next
dropHtml=strHTML
Set objRegExp = Nothing
End Function
str="<title>sadjksjdl腳本之家歡迎你sajdljsald<sadsadsad<br>" '這里是測(cè)試
response.write dropHtml(str)
%>
結(jié)果為：
復(fù)制代碼 代碼如下:
sadjksjdl腳本之家歡迎你sajdljsald
相關(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
IIS7.5調(diào)用asp頁(yè)面出現(xiàn)800a0e7a的解決辦法
本文給大家分享的是在windows2008R2 64位系統(tǒng)中出現(xiàn)了ADODB.Connection 錯(cuò)誤 '800a0e7a'的解決辦法，方法很簡(jiǎn)單，可是處理過(guò)程卻很曲折，這里推薦給大家，有需要的小伙伴可以參考下。2015-05-05
ASP向Excel導(dǎo)數(shù)據(jù)(圖片)終結(jié)版 ASP操作Excel
ASP向Excel導(dǎo)數(shù)據(jù)(圖片)終結(jié)版 ASP操作Excel，需要的朋友可以參考下。2009-11-11
asp如何用discuz會(huì)員系統(tǒng)...2006-09-09
發(fā)郵件的asp(CDONTS.NewMail)...2006-08-08
asp base64 utf-8為了兼容asp.net的base64
asp base64 utf-8為了兼容asp.net的base642009-07-07
asp下實(shí)現(xiàn)格式化文件大小以MB顯示的函數(shù)
asp下實(shí)現(xiàn)格式化文件大小以MB顯示的函數(shù)...2007-08-08
百度推送可以讓你發(fā)布的東西直接推送給百度蜘蛛，讓其快速收錄，百度官方給出了很多范例知道，但是沒(méi)有ASP的范例，下面腳本之家網(wǎng)跟大家分享下2020-04-04
asp兩組字符串?dāng)?shù)據(jù)比較合并相同數(shù)據(jù)
兩組字符串?dāng)?shù)據(jù)，需要比較其中相同的數(shù)據(jù)，并將其值相加并組成一個(gè)新的字符串?dāng)?shù)據(jù)2008-08-08
ASP網(wǎng)頁(yè)模板的應(yīng)用: 讓程序和界面分離，讓ASP腳本更清晰，更換界面更容易
ASP網(wǎng)頁(yè)模板的應(yīng)用: 讓程序和界面分離，讓ASP腳本更清晰，更換界面更容易...2007-01-01