asp 經常用的過濾html正規表示式 及函式

dim clstemplosestr,regex

clstemplosestr = cstr(contentstr)

set regex = new regexp
regex.pattern = "<\/*[^<>]*>"
regex.ignorecase = true
regex.global = true
clstemplosestr = regex.replace(clstemplosestr,"")
losehtml = clstemplosestr
end function

'正規表示式 不過濾 換行

function removehtml1(s)
set rx=new regexp
rx.ignorecase=true
rx.global=true
rx.pattern="
]*>"'先替換換行為其他特殊的內容，最後再反替換回來
s=rx.replace(s,"___br___")
rx.pattern="<[^>]+>"'替換所有標籤
s=rx.replace(s,"")
set rx=nothing
removehtml=replace(s,"___br___","
")end function

正規表示式 過濾 style 標記 ：

regex.pattern = "(]*>[^\0]*(<\/style>)+"
正規表示式 過濾 層 div 標記 ：
regex.pattern = "<(\/)div[^<>]*>"
正規表示式 過濾 鏈結 a 標記 ：
regex.pattern = "<(\/)a[^<>]*>"
正規表示式 過濾 字型 font 標記 ：
regex.pattern = "<(\/)font[^<>]*>"
正規表示式 過濾 span 標記 ：
regex.pattern = "<(\/)span[^<>]*>"
正規表示式 過濾 img 標記
regex.pattern="(\)"
正規表示式 過濾 object 標記 ：
regex.pattern = ""
正規表示式 過濾 iframe 標記：
regex.pattern = "(]*>[^\0]*(<\/iframe>)"
正規表示式 過濾 script ：
regex.pattern = "(]*>[^\0]*(<\/script>)"
正規表示式 過濾 class 標記 ：
regex.pattern = "(class=)(""|\')\s+(""|\'|>|\s)"

Asp過濾指定html標籤函式

過濾指定html標籤 function lfilterbadhtml byval strhtml,byval strtags dim objregexp,stroutput dim arrtag,i arrtag split strtags,set objregexp new regexp stro...

ASP過濾所有HTML標籤（）除外

在 我們處理文字時經常要用到過濾html標籤的函式，這個函式並不難，但為了保持段落結構不被破壞需要保留 標籤，就稍微有點點的麻煩 了，如何來實現這個函式?其實這個一點也不難，簡單的用一句話來說，就是先把 換成不是html標籤的樣式，然後再去除掉所有的 html標籤，再把 換回來就行了，下面給出乙個完...

asp 正則過濾字串

function replacezhengze str,patrn,replstr,ignor 引數解釋 str 原來的字串 patrn 要替換的字串 正規表示式 replstr 要替換成的字串 ignor 是否區分大小寫 1不區分,0區分 dim regex 建立變數。if ingor 1 the...