¹ýÂË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")

ÕâÑùÊÔÊÔ

---

Á½ÃÇ´óÏÀ¡£»¹ÊDz»ÐÐ ~_~!

---

ÕýÔòÕâ¿é£¬Ñ§Ï°£¡

---

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