求asp新闻内容搜索图片地址

[chdf535]

http://topic.csdn.net/u/20080417/17/949595a0-9780-4a99-ac8f-00835bc87aa0.html

您好。安妮的要求我完成了需要的功能

但是我能取出效果如：

<IMG src=""/view/edit/UploadFile/2.jpg"" border=0>sdfsdfsd<IMG src="http://163.com/view/edit/UploadFile/2.jpg"" border=0>

结果：
只取出：src=""/view/edit/UploadFile/2.jpg""

[天宇余]

问题不清楚，不明白，安妮的要求是什么？

[chdf535]

求asp新闻内容搜索图片地址
有文章内容
dsfsdfsdf<IMG src=""/view/edit/UploadFile/2.jpg"" border=0>sdfsdfsd<IMG src=""/view/edit/UploadFile/2.jpg"" border=0>"
response.Write ReplaceQuestion(str4)&"<br>

我想查找出第一个图片的地址如：
<IMG src=""/view/edit/UploadFile/2.jpg"" border=0>里的

里的src=""/view/edit/UploadFile/2.jpg""

？
谢谢

[一把编程的菜刀]

你是想得到/view/edit/UploadFile/2.jpg
还是想得到src=""/view/edit/UploadFile/2.jpg""
还是<IMG src=""/view/edit/UploadFile/2.jpg"">??

我给你的那个是得到<IMG src=""/view/edit/UploadFile/2.jpg"" border=0>
这样的

[chdf535]

我自己解决了谢谢给你给分

[一把编程的菜刀]

function   GetImgSrc(str)   '取得img   标签内容 
        dim   tmp 
        Set   objRegExp   =   New   Regexp 
        objRegExp.IgnoreCase   =   True         '忽略大小写 
        objRegExp.Global   =   True                 '全文搜索   !关键! 
        objRegExp.Pattern   =   "<img[\s\S]+?src=[""']?([^""']{4,}?)[""'][\S\s]*?[/]?>" 
        Set   Matches   =objRegExp.Execute(str) 
        If   Matches.Count> 0   Then 
            tmp=objRegExp.rePlace(Matches(0), "$1")   
        End If 
        GetImgSrc="<img src="""&tmp&""">" 
end   function 
response.write  GetImgSrc("dsfsdfsdf <IMG src=""/view/edit/UploadFile/2.jpg"" border=0>sdfsdfsd <IMG src=""/view/edit/UploadFile/1.jpg"" border=0>")&"<br>"

是这个效果?