ASP去除所有html标签
function nohtml(str) ??????dim re ??????Set re=new RegExp ??????re.IgnoreCase =true ??????re.Global=True ??????re.Pattern="(\<.[^\<]*\>)" ??????str=re.replace(str," ") ??????re.Pattern="(\<\/[^\<]*\>)" ??????str=re.replace(str," ") ??????nohtml=str ??????set re=nothing ??end functionFunction delHtml(strHtml) '做了一个函数名叫delhtml ???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, ">", ">") ????delHtml = strOutput ???Set objRegExp = Nothing End FunctionFunction RemoveHtml(byval strContent) ???Dim objReg ,strTmp ???If strContent="" OR ISNull(strContent) Then Exit Function ???Set objReg=new RegExp ???objReg.IgnoreCase =True ???objReg.Global=True ???objReg.Pattern="<(.[^>]*)>" ???strTmp=objReg.Replace(strContent, "|") ???Set objReg=Nothing ???RemoveHtml=strTmp ???strTmp=""End Functionstr="你好fsdgoijut%%$015$%%fefw%#$fw"chkstartstr = "%%$" '前边的标示字符串chkendstr = "$%%" '后边的标示字符串startstr = InStr(str,chkstartstr) + len(chkstartstr) '找到开始位置endstr = InStr(str,chkendstr) '找到结束位置censtr = Mid(str,startstr,endstr - startstr) '截取字符串ASP去除所有html标签
原文地址：https://www.cnblogs.com/jjxhp/p/10159698.html