演示-链接 演示-单页 演示-书签 演示-语法 演示-杂烩 演示-美图 栏目演示 演示-影音 源码下载 立即购买 申请试用 使用手册 系统更新
ASP语法必学：过滤HTML的多种方法
[分栏：演示-语法]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过滤图片正则表达式<img.+?>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 = strOutputSet objRegExp = NothingEnd Function'srt1是你要去除html代码字符串，可以其它任何地方读取过来。str1 = "<meta http-equiv=""refresh"" content=""0;URL=apple/default.htm""><title>正</3>在转到 ... ...</title>"'应用函数Response.Write(delHtml(str1))Asp过滤Html代码方法三转化html标签为code代码function coder(str) dim i if isnull(str) then : coder="" : exit function : end if for 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 &"<br>" case chr(32) : coder = coder &" " case chr(34) : coder = coder &""" case chr(39) : coder = coder &"'" case else : coder = coder & mid(str,i,1) end select nextend function过滤javascript字符function movejs(str)dim objregexp,str1 set objregexp=new regexp objregexp.ignorecase =true objregexp.global=true objregexp.pattern="\<script.+?\<\/script\>" a=objregexp.replace(str,"") objregexp.pattern="\<[^\<]+>" movejs=objregexp.replace(a,"")end function过滤html标签只剩<br>function filterhtml(byval fstring) if isnull(fstring) or trim(fstring)="" then filterhtml="" exit function end if fstring = replace(fstring, "<br />", "[br]") fstring = replace(fstring, "<br>", "[br]") '过滤html标签 dim re set re = new regexp re.ignorecase=true re.global=true re.pattern="<(.+?)>" fstring = re.replace(fstring, "") set re=nothing