asp去掉html,保留img br p div的正则实现代码
2012-06-21 15:29
507 查看
ASP 过滤HTML标签只剩<p> <br> <img>
<%
Function ReplaceContent(ContentStr)
Dim ClsTempLoseStr,regEx
If Isnull(ContentStr) Or Trim(ContentStr)="" Then
ReplaceContent=""
Exit Function
End If
ContentStr = Replace(ContentStr, "<Br />", "[Br]")
ContentStr = Replace(ContentStr, "<Br>", "[Br]")
ContentStr = Replace(ContentStr, "<P>", "
ClsTempLoseStr = Cstr(ContentStr)
Set regEx = New RegExp
regEx.Pattern = "<[^>]+>"
regEx.IgnoreCase = True
regEx.Global = True
ClsTempLoseStr = regEx.Replace(ClsTempLoseStr,"")
ClsTempLoseStr = Replace(ClsTempLoseStr, "[Br]", "<br />")
ClsTempLoseStr = Replace(ClsTempLoseStr, "
ReplaceContent = ClsTempLoseStr
Set regEx = Nothing
End Function
Function RemoveP(strText)
Dim RegEx
Set RegEx=New RegExp
RegEx.IgnoreCase=True
RegEx.Global=True
RegEx.Pattern="<p [^<]*(.*)[^>]*>"
RemoveP=RegEx.Replace(strText,"[P]")
End Function
Function RemoveImg(strText)
Dim RegEx
Set RegEx=New RegExp
RegEx.IgnoreCase=True
RegEx.Global=True
RegEx.Pattern="<img [^<]*src=""(.*)""[^>]*>"
RemoveImg=RegEx.Replace(strText,"{img src=""$1"" border=0}")
End Function
Function ImgRemove(strText)
Dim RegEx
Set RegEx=New RegExp
RegEx.IgnoreCase=True
RegEx.Global=True
RegEx.Pattern="{img [^{]*src=""(.*)""[^}]*}"
ImgRemove=RegEx.Replace(strText,"<img src='$1' border='0'>")
End Function
Response.Write(ImgRemove(ReplaceContent(RemoveImg(RemoveP(html)))))
%>
<%
Function ReplaceContent(ContentStr)
Dim ClsTempLoseStr,regEx
If Isnull(ContentStr) Or Trim(ContentStr)="" Then
ReplaceContent=""
Exit Function
End If
ContentStr = Replace(ContentStr, "<Br />", "[Br]")
ContentStr = Replace(ContentStr, "<Br>", "[Br]")
ContentStr = Replace(ContentStr, "<P>", "
")
ContentStr = Replace(ContentStr, "</P>", "
ClsTempLoseStr = Cstr(ContentStr)
Set regEx = New RegExp
regEx.Pattern = "<[^>]+>"
regEx.IgnoreCase = True
regEx.Global = True
ClsTempLoseStr = regEx.Replace(ClsTempLoseStr,"")
ClsTempLoseStr = Replace(ClsTempLoseStr, "[Br]", "<br />")
ClsTempLoseStr = Replace(ClsTempLoseStr, "
", "<P>")
ClsTempLoseStr = Replace(ClsTempLoseStr, "
ReplaceContent = ClsTempLoseStr
Set regEx = Nothing
End Function
Function RemoveP(strText)
Dim RegEx
Set RegEx=New RegExp
RegEx.IgnoreCase=True
RegEx.Global=True
RegEx.Pattern="<p [^<]*(.*)[^>]*>"
RemoveP=RegEx.Replace(strText,"[P]")
End Function
Function RemoveImg(strText)
Dim RegEx
Set RegEx=New RegExp
RegEx.IgnoreCase=True
RegEx.Global=True
RegEx.Pattern="<img [^<]*src=""(.*)""[^>]*>"
RemoveImg=RegEx.Replace(strText,"{img src=""$1"" border=0}")
End Function
Function ImgRemove(strText)
Dim RegEx
Set RegEx=New RegExp
RegEx.IgnoreCase=True
RegEx.Global=True
RegEx.Pattern="{img [^{]*src=""(.*)""[^}]*}"
ImgRemove=RegEx.Replace(strText,"<img src='$1' border='0'>")
End Function
Response.Write(ImgRemove(ReplaceContent(RemoveImg(RemoveP(html)))))
%>
相关文章推荐
- asp去掉html,保留img br p div的正则实现代码
- asp去掉html,保留img br p div的代码
- asp 去掉html中的table正则代码函数
- asp 去掉html中的table正则代码函数
- asp 正则实现清除html文本格式的函数代码
- js正则去掉HTML标记保留img
- 史上最强jquery1.3.2轻松打造div模式层! asp.net和html和MagicAjax实现3种方式! 已更新!
- 正则表达式判定保留2位小数的实现代码
- asp去掉html中的table代码函数
- jQuery实现鼠标跟随提示层效果代码(可显示文本,Div,Table,Html等)
- asp采集HTML内容常用代码,详讲正则采集
- ASP.NET C# 用后台代码实现 跨域名访问 返回HTML代码
- C#替换html代码中所有img标签的路径保留文件名称
- js div asp.net 实现漂浮图片,可以代码控制。
- html代码替换正则:把&lt;ss&gt;&lt;img src=&quot;a&quot; data=&quot;b&quot;&gt;&lt;/ss&gt;换成&lt;img src=b /&gt;
- jQuery实现鼠标跟随提示层效果代码(可显示文本,Div,Table,Html等)