主题：asp如何提取文章中的图片信息

<%
Str = "<img src='图片地址' alt='3.jpg' /> <img alt=说明 src='1.jpg'/> <img src='2.jpg'/>"
Set regEx = New RegExp '建立正则表达式。
regEx.Pattern = "(<img)(.[^<>]*)(src=)('|"&CHR(34)&"| )?(.[^'|\s|"&CHR(34)&"]*)(\.)(jpg|gif|png|bmp|jpeg)('|"&CHR(34)&"|\s|>)(.[^>]*)(>)" '设置模式。
regEx.IgnoreCase = True '设置是否区分字符大小写。
regEx.Global = True '设置全局可用性。
Set Matches = regEx.Execute(Str) '执行搜索。

For Each Match in Matches '遍历匹配集合。
'输入图片地址
Response.Write Match.SubMatches(4)&"."&Match.SubMatches(6)&"<br>"
Next
%>比如我做一个新闻发布系统，首页有图片新闻，我想从发布的文章中提取出第一张图片，然后在首页显示。
请高手指导。。。
问题补充：我自己写了一个，大家帮忙找下不足哈。
<script language="javascript">
var pic;
var str = 'e,qwe,qwe<img alt=sdfsf src="asdasdasd.jpg" />qwe,q,we';
var newarray = new Array();
newarray = str.split("<img");
newarray = newarray[1].split("src=");
newarray = newarray[1].split("/>");
newarray = newarray[0].split(" ");
pic = newarray[0];
pic = pic.replace("\"","").replace("\"","");
pic = pic.replace("\'","").replace("\'","");
document.write (pic);
</script>

答案
<iframe id="editor" width="90%" height="100"></iframe> <script>editor.document.designMode="on";</script><input type="button" value="获取图片" />
<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>

-

保存图片的SRC地址

asp+access+sql   2007-11-18 19:48    阅读3    评论0 字号： 大大 中中 小小
方法1
content=sContent1
regstr="src\=.+?\.(gif|jpg)"
url=Replace(Replace(Replace(RegExp_Execute(regstr?content)?"'"?"")?""""?"")?"src="?"")
Response.Write(url)
Response.end

'返回匹配值
Function RegExp_Execute(patrn? strng)
Dim regEx? Match? Matches?values '建立变量。
Set regEx = New RegExp '建立正则表达式。
regEx.Pattern = patrn '设置模式。
regEx.IgnoreCase = true '设置是否区分字符大小写。
regEx.Global = True '设置全局可用性。
Set Matches = regEx.Execute(strng) '执行搜索。
For Each Match in Matches '遍历匹配集合。
values=values&Match.Value&"?"
Next
RegExp_Execute = values
End Function

方法2

<!--#include file="Include/conn.asp"-->
<!--#include file="Include/Fun_SqlIn.Asp"-->

<%
function GetImgSrc(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
     GetImgSrc=getimgs(tmp)
end function

function getimgs(str)'取得
    Set objRegExp1 = New Regexp
     objRegExp1.IgnoreCase = True    '忽略大小写
     objRegExp1.Global = True    '全文搜索
     objRegExp1.Pattern = "src=.+[(gif|jpg|png)]+"    '表达式
    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

  dim rs,sql,i,strurl,regstr
  set rs = server.createobject("adodb.recordset")
  sql="select Top 10 * from zhi_rui_s_io where ViewFlag=1 and IndexFlag=1 order by IndexFlag desc,id desc"
  rs.open sql,conn,1,1
  response.write"<table width='100%' border='0' cellspacing='0' cellpadding='0' style='margin-top:10px;'>"
  if rs.bof and rs.eof then
    response.write "<tr><td align='center'>暂无相关信息</td></tr>"
  else
    response.write"<tr>"
    for i=1 to 1'rs.recordcount
      if rs.eof then exit for
   response.write"<td width='10%' >"
 'Response.Write rs("content")
'response.write"<img "&RegExp_Execute(regstr,strurl)&" style='border:1px solid #FFFFFF;' width=120 height=100  class='shadow'>"
   'response.write"<div ><a  href='info_Show.asp?InfoId="&rs("ID")&"&ClassId="&rs("ClassId")&"&Topid="&rs("TopID")&"' target='_blank'><img src='"&rs("MaxPic")&"' style='border:1px solid #FFFFFF;' width=120 height=100  class='shadow'></a></div>"
   response.write"<div  align='center'>"
   response.write""&left(rs("infoName"),10)&""
   response.write"</div>"
   response.write"</td>"
    if i mod 10 = 0 then
    response.write"</tr>"
 end if
      rs.movenext
    next
  end if
  response.write "</table>"
  rs.close
  set rs=nothing
 
  Function   RegExp_Execute(strng)  
          Dim   regEx,   Match,   Matches,values   '建立变量。  
          Set   regEx   =   New   RegExp   '建立正则表达式。 
          regEx.Pattern   =  "src\=.+?\.(gif|jpg)"   '设置模式。  
          regEx.IgnoreCase   =   true   '设置是否区分字符大小写。  
          regEx.Global   =   True   '设置全局可用性。  
          Set   Matches   =   regEx.Execute(strng)   '执行搜索。  
          For   Each   Match   in   Matches   '遍历匹配集合。  
                  values=values&Match.Value&""","  
          Next  
          RegExp_Execute   =   values  
    End   Function
%>

<%
str="图文新闻<IMG src=""/UploadFiles/20081027.jpg"" border=0>下一张图片<IMG src=""/UploadFiles/06.gif"">"
aa=RegExp_Execute(str)
response.write replace (aa,"src=","")
%>

<%
str="<img src=images/200610261533.jpg><img src=""images/200609151656.jpg""><img src=images/200609051735.JPG>"

response.write(GetImgSrc(str))

%>