如何提取网页中和图片相关的代码

因为有个朋友急需要这方面的资料,所以我简单点说:

两种方法:

1、正则表达式，先把代码写出来，我再详细解释。

图片都是写在里的，所以只要把这个代码查出来一切就解决了。

<%
FunctionRegExpTest(patrn,strng)
DimregEx,Match,Matches'建立变量。
SetregEx=NewRegExp'建立正则表达式。
regEx.Pattern=patrn'设置模式。
regEx.IgnoreCase=True'设置是否区分字符大小写。
regEx.Global=True'设置全局可用性。
SetMatches=regEx.Execute(strng)'执行搜索。
ForEachMatchinMatches'遍历匹配集合。
RetStr=RetStr&"Matchfoundatposition"
RetStr=RetStr&Match.FirstIndex&".MatchValueis'"
RetStr=RetStr&Match.Value&"'."&"<BR>"
Next
RegExpTest=RetStr
EndFunction
response.writeRegExpTest"\<img.*?\>"，网页代码)

%>

(做个广告:特价机票)

这段代码运行的结果就是提取所有代码，得到了所有的图片。

2、split解决。

代码：

a=网页内容

b=split(a,"

这样把网页内容以ubound(b)的值是包含图片的总数。

下面提取详细信息。

用个循环。

for i=1 to ubound(b)

c=split(b(i),">")

c(0)就是图片相关的信息。

next

详细代码到下载。