Asp过滤Html代码方法一Function RemoveHTML(strHTML)Dim objregExp, Match, MatchesSet objRegExp = New RegexpobjRegExp.IgnoreCase = TrueobjRegExp.Global = True'取闭合的<>objRegExp.Pattern = "<.+?>"'进行匹配Set Matches = objRegExp.Execute(strHTML)' 遍历匹配集合，并替换掉匹配的项目For Each Match in MatchesstrHtml=Replace(strHTML,Match.Value,"")NextRemoveHTML=strHTMLSet objRegExp = NothingEnd Function

过滤图片正则表达式

Asp过滤Html代码方法二

Function delHtml(strHtml)

Dim objRegExp, strOutputSet objRegExp = New Regexp ' 建立正则表达式

objRegExp.IgnoreCase = True ' 设置是否区分大小写objRegExp.Global = True '是匹配所有字符串还是只是第一个objRegExp.Pattern = "(<[a-zA-Z].*?>)|(<[\/][a-zA-Z].*?>)" ' 设置模式引号中的是正则表达式，用来找出html标签

strOutput = objRegExp.Replace(strHtml, "") '将html标签去掉strOutput = Replace(strOutput, "<", "<") '防止非html标签不显示strOutput = Replace(strOutput, ">", ">")delHtml = strOutput

Set objRegExp = NothingEnd Function

'srt1是你要去除html代码字符串，可以其它任何地方读取过来。str1 = ""'应用函数Response.Write(delHtml(str1))

Asp过滤Html代码方法三

转化html标签为code代码

function coder(str)dim iif isnull(str) then : coder="" : exit function : end iffor i = 1 to len(str)select case mid(str,i,1)case "<" : coder = coder &"<"case ">" : coder = coder &">" case "&" : coder = coder &"&"case chr(9) : coder = coder &" "case chr(13) : coder = coder &""case chr(32) : coder = coder &""case chr(34) : coder = coder &"""case chr(39) : coder = coder &"'"case else : coder = coder & mid(str,i,1)end selectnextend function

过滤javascript字符

function movejs(str)dim objregexp,str1set objregexp=new regexpobjregexp.ignorecase =trueobjregexp.global=trueobjregexp.pattern="\"movejs=objregexp.replace(a,"")end function

过滤html标签只剩

function filterhtml(byval fstring)if isnull(fstring) or trim(fstring)="" thenfilterhtml=""exit functionend iffstring = replace(fstring, "", "[br]")fstring = replace(fstring, "", "[br]")'过滤html标签dim reset re = new regexpre.ignorecase=truere.global=truere.pattern="<(.+?)>"fstring = re.replace(fstring, "")set re=nothingfstring = replace(fstring, "[br]", "")filterhtml = fstringend function