求一去除内容中IMG标签的函数,最好使用正则

spirit888 2009-09-03 02:32:57

需要去除内容中的图片,只去除图片,并且要能包含大小写,也就是去除<IMG *> <img *> 这2个标签,标签内不会有尖括号.

...全文

92 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

gxq323 2009-09-03

打赏
举报

留名

spirit888 2009-09-03

打赏
举报

Function ReplaceTest(patrn,replStr,str1) '任意正则函数
Dim regEx
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = True ' 设置是否区分大小写。
ReplaceTest = regEx.Replace(str1, replStr) ' 作替换。
End Function

Function Offimg(str1) '去内容中IMG标签，与任意正则函数搭配使用
img="<img[^>]*>"
IMG="<IMG[^>]*>"
Offimg=ReplaceTest(IMG,"",(ReplaceTest(img,"",str1)))
End Function

再把我自己的发上来,方便后来人,结帖了,再次感谢HOOKEE

spirit888 2009-09-03

打赏
举报

感谢,我已从过客的帖子里找到答案了,和你的一样,非常感谢

hookee 2009-09-03

打赏
举报



<%

s = "xxx<iMg src=""xx"" />asdas"

Set re= New RegExp

re.Pattern = "<img[^>]+>"

re.Global = True

re.IgnoreCase = True

re.MultiLine = True

s = re.Replace(s, "")



Response.Write s

%>