过滤网页中HTML代码的ASP函数
Function LoseHtml(ContentStr) Dim ClsTempLoseStr,regEx ClsTempLoseStr = Cstr(ContentStr) Set regEx = New RegExp regEx.Pattern = "<\/*[^<>]*>" '这是完全去除HTML代码的正则 'regEx.Pattern="/<(\w+)\s[^>]*>/g" '这是简化HTML代码的正则 regEx.IgnoreCase = True regEx.Global = True ClsTempLoseStr = regEx.Replace(ClsTempLoseStr,"") LoseHtml = ClsTempLoseStr End function function DelHtml(htmlCode) dim iStart,iEnd dim sTemp sTemp=htmlCode iStart=instr(sTemp,"<") iEnd=instr(sTemp,">") do while iStart>0 and iEnd>0 and iEnd-iStart>0 sTemp=replace(sTemp,mid(sTemp,iStart,iEnd-iStart+1),"") iStart=instr(sTemp,"<") iEnd=instr(sTemp,">") loop DelHtml=sTemp end function 以上两种方法均可以达到去除HTML代码的效果。