过滤html中的所有图片

<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,"");

---

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

这样试试

---

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

---

正则这块，学习！

---

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

---

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,"&nbsp;","K_KongG")'空格
ClsTempLose