ASP去除所有HTML标签函数

有时候我们需要去除HTML标签只要里面的文字，如截取文章的前100个汉字作为文章的导读，这个时候我们只想要最前100个文字，HTML标签都要去掉。下面编程之家跟大家分享：ASP去除所有HTML标签函数。

只取前100个文字最简单的ASP函数left即可。但是如何去除所有的HTML标签呢？

去除全部HTML标签的ASP函数

Public Function ReplaceHTML(Textstr)

Dim Str, re

Str = Textstr

Set re = New RegExp

re.IgnoreCase = True

re.Global = True

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

Str = re.Replace(Str, "")

Set Re = nothing

ReplaceHTML = Str

End Function

使用正则表达式过滤所有HTML标记加强版函数

Public Function ReplaceHTML(Textstr)

Dim sstr, regEx

sstr = Textstr

Set regEx = New RegExp

regEx.IgnoreCase = True

regEx.Global = True

regEx.Multiline = True

' regEx.Pattern = "<!--[sS]*?-->" '//想用就把注释去掉

' sstr = regEx.Replace(sstr, "")

regEx.Pattern = "<script[sS]*?</script>"

sstr = regEx.Replace(sstr, "")

regEx.Pattern = "<style[sS]*?</style>"

sstr = regEx.Replace(sstr, "")

regEx.Pattern = "s[on].+?=([""|'])(.*?)1"

sstr = regEx.Replace(sstr, "")

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

sstr = regEx.Replace(sstr, "")

Set regEx = nothing

ReplaceHTML = sstr

End Function