在网上看到这样一个贴子：可以在首页和列表页调出内容正文的图片。
带标题图的直接调用标题图，不带标题图的，调用文章的第一张图片做标题图，如果文章也没有图片，那就调用系统设定的一张图片。
1、调用内页图片的话，先提取内容页的字段内容，然后进行正则，得到一个数组，然后判断数组的长度。
把这个函数放到e/class/connect.php里面，最好是放在//替换列表模板/标签模板/搜索模板这一段的上方，因为相关代码都在这一块，修改方便。
然后再在’$titleurl=sys_ReturnBqTitleLink($r);//链接‘这一段的下面加上
’$diyfpic=diy_imgFirst($r);‘ 引入函数；
最后一步：在$listtemp里面加上我们的函数，
$listtemp=str_replace('[!--diyfpic--]',$diyfpic,$listtemp);
这样就可以做列表模板里面进行调用了。
列表模板里面使用的时候，直接 使用 [!--diyfpic--] 即可。
function diy_imgFirst($r){
global $empire,$dbtbpre;
$fr=$empire->fetch1("select newstext from {$dbtbpre}ecms_news_data_1 where id='$r[id]'");
$newstext=stripslashes($fr['newstext']);//去除反斜杠并且获取文章正文内容
$pattern = "/.*src="([^^]*?)".*/i"; //正则
preg_match_all($pattern, $newstext, $match);
if(count($match[1])>=1){
$diyfpic=$match[1][0];
}else{
$diyfpic='/e/data/images/notimg.gif';
}
return $diyfpic;
}
2、改进版：
function diy_getimg($r,$n){
global $empire,$dbtbpre,$class_r;
$tbname=$class_r[$r[classid]][tbname];
$fr=$empire->fetch1("select newstext from {$dbtbpre}ecms_".$tbname."_".$r[fstb]." where id='$r[id]'");
$newstext=stripslashes($fr['newstext']);
$pattern = "/<img.*?src.*?=.*?['|"]([^s]+.*?)['|"].*?>/i";
preg_match_all($pattern, $newstext, $match);
if(count($match[1])>=$n){
$diypic=$match[1][$n-1];
}else{
$diypic='/e/data/images/notimg.gif';
}
return $diypic;
}
完善了下取图片的正则，将此代码复制到/e/class/userfun.php文件中(不影响后续程序升级)，然后在调用的地方直接调用该函数。不仅仅可以调用第一张图片
示例：
调用第一张 $pic1=diy_getimg($id,1);
调用第二张 $pic2=diy_getimg($id,2);
上面的方法1 在7.5版中测试是可以的，但方法2，多张图片的，没看明白是怎么操作，测试出错，那段代码到底该放在哪个文件中，如何使用？ 有没有人能帮忙看看？谢谢！