UC知道ASP新闻系统中,提取内容中的某一段代码,该怎么做?
来源：百度知道 编辑：UC知道 时间：2024/05/31 15:56:44
有个小新闻系统,新闻内容是支持HTML的,文字内容里面混杂了几张图片,如果我想提取其中的一张图片,显示在前台,该怎么写呢?
比如某条新闻数据库中的内容代码是
类似问题请到为了方便大家更好地交流知识，<IMG src="http://www.12345.com/tuku/0601/20/1.jpg">在此提问软件下载等相关问题将被删除，类似问题请到题请到为了方便大家更好地交流知识，<IMG src="http://www.12345.com/tuku/0601/20/2.jpg">在此提问软件下载等相关问题将被删除
其中夹杂了两张图片,我现在想将http://www.12345.com/tuku/0601/20/1.jpg这张图片在前台显示
比如某条新闻数据库中的内容代码是
类似问题请到为了方便大家更好地交流知识，<IMG src="http://www.12345.com/tuku/0601/20/1.jpg">在此提问软件下载等相关问题将被删除，类似问题请到题请到为了方便大家更好地交流知识，<IMG src="http://www.12345.com/tuku/0601/20/2.jpg">在此提问软件下载等相关问题将被删除
其中夹杂了两张图片,我现在想将http://www.12345.com/tuku/0601/20/1.jpg这张图片在前台显示
约定内容字段名为message，以下程序提出任意内容中的图片
程序原理：基于每一段图片代码都是由<IMG和>包括起来，
程序出错可能唯一：<IMG和>不能成对，即出现单独的<IMG，而单独的>不受限制，并且>也是常用符号，所以也不能去约束它
调试：server.htmlencode显示代码，去掉server.htmlencode，就是输出图片，然后你随便提一个出来显示就行了
程序修改：不能用replace替换mid，否则在同一图片出现多次的时候，用replace会出错
LZ加分，我自己写的，标准的编制流程哦
<%
str=rs("message")
myarray=split(str,"<IMG")
lennum=ubound(myarray)
for i=1 to lennum
a=instr(str,"<IMG")
b=mid(str,a)
c=instr(b,">")
d=mid(str,a,c)
str=mid(str,a+c)
response.write server.htmlencode(d) & "<br>"
next
%>