因?yàn)橛袀€(gè)朋友急需要這方面的資料,所以我簡(jiǎn)單點(diǎn)說:

兩種方法:

1、正則表達(dá)式，先把代碼寫出來，我再詳細(xì)解釋。

圖片都是寫在里的，所以只要把這個(gè)代碼查出來一切就解決了。

       <%
       Function RegExpTest(patrn, strng)
       Dim regEx, Match, Matches'建立變量。
       Set regEx = New RegExp'建立正則表達(dá)式。
       regEx.Pattern = patrn'設(shè)置模式。
       regEx.IgnoreCase = True'設(shè)置是否區(qū)分字符大小寫。
       regEx.Global = True'設(shè)置全局可用性。
       Set Matches = regEx.Execute(strng)'執(zhí)行搜索。
       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.*?/>"，網(wǎng)頁代碼)

       %>

(做個(gè)廣告:特價(jià)機(jī)票)

這段代碼運(yùn)行的結(jié)果就是提取所有代碼，得到了所有的圖片。

2、split解決。

代碼：

a=網(wǎng)頁內(nèi)容

b=split(a,"

這樣把網(wǎng)頁內(nèi)容以u(píng)bound(b)的值是包含圖片的總數(shù)。

下面提取詳細(xì)信息。

用個(gè)循環(huán)。

for i=1 to ubound(b)

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

c(0)就是圖片相關(guān)的信息。

next

詳細(xì)代碼到下載。