Question

asp中，如何在首页显示新闻内容中的第一张图片（在线等）！

我想从新闻的内容中读取内容中的第一张图片，内容是后台编辑器编辑存储的 不知道怎么实现此功能 意思是说 新闻内容 是在后台中的编辑器中添加的 我想从这个编辑器中的内容中读取第一张图片显示在首页中 如何做到呢？

Answer 1

直接前台读取判断就可以了content字段为例
<%
'***********************************************
'函数名：etFirstImg
'作 用：获得信息里的第一张图片地址
'参 数：str ----信息
'***********************************************

function GetFirstImg(str) '取得img 标签内容
dim tmp
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True '忽略大小写
objRegExp.Global = false '全文搜索 !关键!
objRegExp.Pattern = "<img (.*?)src=(.[^\[^>]*)(.*?)>"
Set Matches =objRegExp.Execute(str)
For Each Match in Matches
tmp=tmp & Match.Value
Next
GetFirstImg=GetImgS(tmp)
end function

function GetImgS(str)'获取所有图片
Set objRegExp1 = New Regexp
objRegExp1.IgnoreCase = True '忽略大小写
objRegExp1.Global = True '全文搜索
objRegExp1.Pattern = "src\=.+?\.(gif|jpg|png|bmp)"
set mm=objRegExp1.Execute(str)
For Each Match1 in mm
imgsrc=Match1.Value
'也许存在不能过滤的字符，确保万一
imgsrc=replace(imgsrc,"""","")
imgsrc=replace(imgsrc,"src=","")
imgsrc=replace(imgsrc,"<","")
imgsrc=replace(imgsrc,">","")
imgsrc=replace(imgsrc,"img","")
imgsrc=replace(imgsrc," ","")
GetImgS=GetImgS&imgsrc'把里面的地址串起来备用
next
end function%>
<img src="<%str =rs("content")
if GetFirstImg(str)="" then
response.write "/images/huace.gif"
else
response.write GetFirstImg(str)
end if
%>

Answer 2

<iframe id="editor" width="90%" height="100"></iframe> <script>editor.document.designMode="on";</script><input type="button" value="获取图片" onclick="getImg();" />
<script type="text/javascript">
<!--
function getImg()
{
var str_img = editor.document.body.innerHTML.replace(/[\s\S]*?src=[\'\"\s]*?(http:\/\/[a-z\d\._\-\/\%]*)[\'\"\s]*?/igm, '$1,');
var imgs = str_img.split(',');
str_img = '';
for (var i=0;i<imgs.length-1;i++)
{
if (imgs[i].indexOf('http://')==0)
{
if (i>0)str_img += ',';
str_img += imgs[i];
}
}
editor.document.body.innerHTML=(str_img);
}
//-->
</script>