巧用asp語(yǔ)言過濾html元素
來源：易賢網(wǎng) 閱讀：1058 次 日期：2014-08-22 15:53:02
溫馨提示：易賢網(wǎng)小編為您整理了“巧用asp語(yǔ)言過濾html元素”,方便廣大網(wǎng)友查閱！

巧用asp語(yǔ)言過濾html元素：

'過濾html

'函數(shù)名：GlHtml

'作 用：過濾html 元素

'參 數(shù)：str ---- 要過濾字符

'返回值：沒有html 的字符

'**************************************************

Public Function GlHtml(ByVal str)

If IsNull(str) Or Trim(str) = "" Then

GlHtml = ""

Exit Function

End If

Dim re

Set re = New RegExp

re.IgnoreCase = True

re.Global = True

re.Pattern = "(<.[^<]*>)"

str = re.Replace(str, " ")

re.Pattern = "(</[^<]*>)"

str = re.Replace(str, " ")

Set re = Nothing

str = Replace(str, "'", "")

str = Replace(str, Chr(34), "")

GlHtml = str

End Function

更多信息請(qǐng)查看IT技術(shù)專欄

更多信息請(qǐng)查看網(wǎng)絡(luò)編程
易賢網(wǎng)手機(jī)網(wǎng)站地址：巧用asp語(yǔ)言過濾html元素
由于各方面情況的不斷調(diào)整與變化，易賢網(wǎng)提供的所有考試信息和咨詢回復(fù)僅供參考，敬請(qǐng)考生以權(quán)威部門公布的正式信息和咨詢?yōu)闇?zhǔn)！
關(guān)于我們 | 聯(lián)系我們 | 人才招聘 | 網(wǎng)站聲明 | 網(wǎng)站幫助 | 非正式的簡(jiǎn)要咨詢 | 簡(jiǎn)要咨詢須知 | 新媒體/短視頻平臺(tái) | 手機(jī)站點(diǎn)

版權(quán)所有:易賢網(wǎng)