這(zhè)個(gè)效果很是不錯，那麽先不說百度怎麽實現的(de)，我們完全可(kě)以用(yòng)asp來(lái)實現，通(tōng)過asp裏的(de)正則來(lái)查找文章(zhāng)内容中是否包含img标簽，如果包含則提取這(zhè)個(gè)标簽的(de)src的(de)值，這(zhè)樣就達到了(le)讀取圖片的(de)功能。下(xià)面看代碼：Function giveimages(content)
這(zhè)個(gè)效果很是不錯，那麽先不說百度怎麽實現的(de)，我們完全可(kě)以用(yòng)asp來(lái)實現，通(tōng)過asp裏的(de)正則來(lái)查找文章(zhāng)内容中是否包含img标簽，如果包含則提取這(zhè)個(gè)标簽的(de)src的(de)值，這(zhè)樣就達到了(le)讀取圖片的(de)功能。下(xià)面看代碼：
Function giveimages(content) Set regEx = New RegExp ’建立正則表達式。 regEx.Pattern = "(]*)(src=)(’|"&CHR(34)&"| )?(.[^’|\s|"&CHR(34)&"]*)(\.)(jpg|gif|png|bmp|jpeg)(’|"&CHR(34)&"|\s|>)(.[^>]*)(>)" ’設置模式。 regEx.IgnoreCase = True ’設置是否區(qū)分(fēn)字符大(dà)小寫。 regEx.Global = True ’設置全局可(kě)用(yòng)性。 Set Matches = regEx.Execute(content) ’執行搜索。 For Each Match in Matches ’遍曆匹配集合。 giveimages = giveimages&Match.SubMatches(4)&"."&Match.SubMatches(6)&"|"’這(zhè)個(gè)是讓圖片的(de)路徑疊加，并在每一個(gè)後面加個(gè)|符号 NextEnd Function
在頁面中加上上面那個(gè)函數,然後在你的(de)列表循環裏加上引用(yòng)如：img=giveimages(rs("内容字段"))那麽這(zhè)個(gè)img就等于有這(zhè)個(gè)圖片的(de)路徑了(le)，切記，這(zhè)回的(de)這(zhè)個(gè)路徑是有全部的(de)文章(zhāng)裏的(de)圖片的(de)。你得(de)用(yòng)Split分(fēn)割，看我下(xià)面的(de)例子：
if thisimg<>"" then’先判斷是否爲空，如果不爲空則 thisimg=Split(thisimg,"|")’分(fēn)割圖片路徑 imgsize=ubound(thisimg)’定義變量 for imgi=0 to imgsize’循環輸出 if imgi=imgsize then exit for’如果循環到最後則退出循環 response.Write("
")’輸出圖片next’循環結束
這(zhè)樣就實現了(le)在列表頁面提取文章(zhāng)中的(de)圖片，提取出來(lái)的(de)這(zhè)個(gè)圖片你可(kě)以自己定義CSS，也(yě)可(kě)以加DIV等效果。
