专业的广州网站建设公司、广州网站设计制作公司为您服务,电话:020-85548809,29883069
新闻中心
专业专注专心,行业行情行规
分享交流,永无止境,我们愿与您共同进步

ASP去除HTML代码

发布日期:[2010/10/22]   编辑:奇亿广州网站建设

分享几种ASP去除HMTL代码的方法:

ASP去除HMTL代码方法一:
<%'去除HTML代码
function noHTML(str)
dim re
Set re=new RegExp
re.IgnoreCase =True '设置是否区分字符大小写。
re.Global=True
re.Pattern="(<img)(.[^<>]*)(src=)('|"&CHR(34)&"| )?(.[^'|\s|"&CHR(34)&"]*)(\.)(jpg|gif|png|bmp|jpeg)('|"&CHR(34)&"|\s|>)(.[^>]*)(>)" '设置模式
str=re.replace(str,"")
re.Pattern="(\<font.[^\<]*\>)"
str=re.replace(str," ")
nohtml=str
set re=nothing
end function%>
调用:noHTML(内容)

ASP去除HMTL代码方法二:
<%Function noHtml(strHtml) '做了一个函数名叫noHtml
Dim objRegExp, strOutput
Set 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, ">", ">")
noHtml = strOutput
Set objRegExp = Nothing
End Function%>
调用:noHTML(内容)

ASP去除HMTL代码方法三:
<%Function noHtml(ContentStr)
 Dim ClsTempLoseStr,regEx
 ClsTempLoseStr = Cstr(ContentStr)
 Set regEx = New RegExp
 regEx.Pattern = "<\/*[^<>]*>"
 regEx.IgnoreCase = True
 regEx.Global = True
 ClsTempLoseStr = regEx.Replace(ClsTempLoseStr,"")
 noHtml = ClsTempLoseStr
End function%>
调用:noHTML(内容)

如果是需要去除或删除或替换从某某字符内容开始到某某结束内容的全部,以下是ASP去除或替换开始到结束内容的代码:
<%Function ReplaceExp(srcstr, patrn, replStr)
Set regEx = New RegExp
regEx.Pattern = patrn
regEx.IgnoreCase = True
regEx.Global = True
regEx.Execute(srcstr)
ReplaceExp = regEx.Replace(srcstr, replStr)
Set regEx = Nothing
End Function%>
调用:ReplaceExp(原内容,"开始符号.*?结束符号","替换内容")

广州建网站、广州做网站
或者将本文《ASP去除HTML代码》收藏和分享到:
复制本文《ASP去除HTML代码》地址给好友: