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

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

两种方法:

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

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

       <%
       Function RegExpTest(patrn, strng)
       Dim regEx, Match, Matches'建立变量。
       Set regEx = New RegExp'建立正则表达式。
       regEx.Pattern = patrn'设置模式。
       regEx.IgnoreCase = True'设置是否区分字符大小写。
       regEx.Global = True'设置全局可用性。
       Set Matches = regEx.Execute(strng)'执行搜索。
       For Each Match in Matches'遍历匹配集合。
       RetStr = RetStr & "Match found at position "
       RetStr = RetStr & Match.FirstIndex & ". Match Value is '"
       RetStr = RetStr & Match.Value & "'." & "<BR>"
       Next
       RegExpTest = RetStr
       End Function
       response.write RegExpTest"/<img.*?/>"，网页代码)

       %>

(做个广告:特价机票)

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

2、split解决。

代码：

a=网页内容

b=split(a,"

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

下面提取详细信息。

用个循环。

for i=1 to ubound(b)

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

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

next

详细代码到下载。