如何用程序自动提取文章内容中的第一张图片地址

在网站后台功能里加上一个功能，就是添加文章时，前台预览图片自动为文章内容的第一张图。有相关的系统或代码请发给小弟，谢谢各位大哥

1、首先使用Split拆分<img，看文章里面是否有图片，有的话取数组中的第一个，然后再使用Split拆分src=取得url地址。

2、用js正则表达式

采集 就可 你用的是什么程序

你可试下页面的代码 ,这是我以前整理的!!!

<% str="内容” 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 %>

sever.htmlencode() 是让htm以文本的方式输出。

如果想只取第一张图片的话

<% str=“内容" myarray=split(str,"<IMG") lennum=ubound(myarray) a=instr(str,"<IMG") b=mid(str,a) c=instr(b,">") d=mid(str,a,c) str=mid(str,a+c) response.write(d) %>

——————————————————————

以上为网络上代码，会将整个img标签完整显示，但是有时候会出现截取错误的现象。

经改良后获得如下代码，转化为函数，最终输出结果为：只输出图片url

function csan(str){ myarray=split(str,"<img") lennum=ubound(myarray) a=instr(str,"<img") 'response.write server.htmlencode(a) & "<br>" & "<br>" & "<br>" b=mid(str,a) 'response.write server.htmlencode(b) & "<br>" & "<br>" & "<br>" e=instr(b,"src=") 'response.write server.htmlencode(e) & "<br>" & "<br>" & "<br>" b=mid(b,e) 'response.write server.htmlencode(b) & "<br>" & "<br>" & "<br>" c=instr(6,b,chr(34)) 'response.write server.htmlencode(c) & "<br>" & "<br>" & "<br>" d=mid(str,a+e+4,c-6) }

此函数可直接调用。

中间response.write为输出截取到的代码

供使用者测试截取过程中每一步的截取过程。

转自: http://www.bluege.com.cn