Question

asp读取数据库，如何过滤图片

<%=left(rs("body"),300)%>

现在是读取body里前300个字符，我只想要纯文字，不想读取数据库里的img标签内容。
能不能把完整改后代码给我？
从其他地方抄的就免了

Answer 1

dim Content,images,j,m,jj,jjj,temp
Content=rec("Content")
images=Content
while Instr(Content,"<")>=1
if mid(Content,1)="<" then
j=Instr(Content,">")
Content=mid(Content,j+1)
else
m=Instr(Content,"<")
j=Instr(Content,">")
Content=left(Content,m-1)&mid(Content,j+1)
end if
wend
Content=replace(Content," ","")
Response.Write("<a href='NewShow.asp?ID="&rec("ID")&"' target='_blank'>")
Response.Write(left(Content,80)&">>")
Response.Write("</a>")

可以过滤到<img等其他HTML标签，，但过滤不掉<style></style>之间的

Answer 2

str = "这里是图片<IMG alt= src=https://gss0.bdstatic.com/70cFsjip0QIZ8tyhnq/hi/logo-pb.gif width=430 />图片代码完<br/>再换一个行"
Set r = New RegExp
r.ignoreCase = true
r.Pattern = "<img[\s|\S]*?>"
str2 = r.replace(str,"")
Response.write str2
这段你测试一下，你把rs("body")的值替赋给str
但有一点要注意一下，如果出错的话
你试试先把这个值中的双引号给替换掉，替换成单引号
但是如果这些图片中有包括javascript
并且是调用了函数而且用了字符串的参数，
可能会有问题比如原来是 onclick="show('hello')"
你替换了之后就是 onclick='show('hello')' 这样函数可能无效