过滤html中的所有图片

[bnabinge]

<img height=10 hspace=5 src="/uploads/sky.gif" width=10 align=baseline border=0>
我要过滤内容中的所有图片。怎么写正则。我写的怎么没动啊
set regIMG = New RegExp
regIMG.IgnoreCase = True
regIMG.Global = True
regIMG.Pattern="<img.*?>"
' regIMG.Pattern ="(\<img[^\<]*\>)"
‘上面这两个都不管用。怎么办啊。
ClsTempLoseStr= regIMG.Replace(ClsTempLoseStr,"")
LoseHtml = ClsTempLoseStr

[浪尖赏花]

ClsTempLoseStr= ClsTempLoseStr.Replace(regIMG,"");

[sy_binbin]

re.Pattern="<(.[^>]*)>"
str=re.replace(str,"")
re.pattern="([\s\S]*)(\<[^>]*)"
str=re.replace(str,"$1$2")

这样试试

[bnabinge]

两们大侠。还是不行 ~_~!

[wxb0903]

正则这块，学习！

[Anlige]

regIMG.Pattern="<img(.*?)>"

[gxq323]

<%
function delimg(str)
Dim RegEx

    Set RegEx = New RegExp

    RegEx.Pattern = "<img [^>]*>" '设置正则表达式

    RegEx.IgnoreCase = True '是否贪婪模式

    regEx.Global = True '是否全局搜索
    delimg=RegEx.Replace(str,"")

    Set RegEx=nothing
end function
%>

[bnabinge]

Function LoseHtml(ContentStr)
Dim ClsTempLoseStr,regEx,regexIMG,regexIMGs
ClsTempLoseStr = Cstr(ContentStr)
Set regEx = New RegExp
regEx.Pattern = " </?(?!br\b|p\b|/)[^ <>]*>"
'regEx.Pattern = "<\/*[^<>]*>"
regEx.IgnoreCase = True
regEx.Global = True
ClsTempLoseStr =Replace(ClsTempLoseStr," ","K_KongG")'空格
ClsTempLoseStr = regEx.Replace(ClsTempLoseStr,"")
ClsTempLoseStr =Replace(ClsTempLoseStr,"K_KongG"," ")
'binge 过滤内容中的图片 临时使用
set regexIMGs= New RegExp
regexIMGs.Pattern="<img [^>]*>"
regexIMGs.IgnoreCase = True
regexIMGs.Global = True
ClsTempLoseStr = regexIMGs.Replace(ClsTempLoseStr,"")
Set regexIMGs=nothing
LoseHtml = ClsTempLoseStr
End function

晕了还是不行。里面的图片还是在着。

到低是怎么回事啊。

[bnabinge]

几位大侠的都试了。没动静呀