因为有个朋友急需要这方面的资料,所以我简单点说:
两种方法:
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.*?\>"，网页代码)
%>
(做个广告:特价机票http://www.99jpw.cn)
这段代码运行的结果就是提取所有代码，得到了所有的图片。
2、split解决。
代码：
a=网页内容
b=split(a,"
这样把网页内容以ubound(b)的值是包含图片的总数。
下面提取详细信息。
用个循环。
for i=1 to ubound(b)
c=split(b(i),">")
c(0)就是图片相关的信息。
next
详细代码到http://www.99zz.org/99zz/wenzhang/?id=41下载。