asp中獲取內容中所有圖片或者獲取第一個圖片的代碼

用ASP獲取內容中的圖片與獲取內容中的第一個圖片地址，主要用在刪除內容中的圖片，或者是將內容中的圖片放到幻燈片中，使用的原理是用正則表達式的方法獲取，具體代碼如下： vIEw source print? 01 '===================================== 02 '獲取內容中所有圖片 03 '===================================== 04 Function Get_ImgSrc(ByVal t0) 05 Dim t1,Regs,Matches,Match 06 t1="" 07 IF Not(IsNull(t0) Or Len(t0)=0) Then 08 Set Regs=New RegExp 09 Regs.Pattern="<img[^>]+src=""([^"">]+)""[^>]*>" 10 Regs.Ignorecase=True 11 Regs.Global=True 12 Set Matches=Regs.Execute(t0) 13 IF Matches.Count>0 Then 14 For Each Match In Matches 15 IF Left(Match.SubMatches(0),7)<>"http://" Then 16 t1=t1&"<option value="""&Match.SubMatches(0)&""">"&Match.SubMatches(0)&"</option>" 17 End IF 18 Next 19 End IF 20 End IF 21 Get_ImgSrc=t1 22 Set Matches=Nothing 23 Set Regs=Nothing 24 End Function 25   26 '===================================== 27 '獲取內容中第一個圖片 28 '===================================== 29 Function Frist_Pic(ByVal t0) 30 Frist_Pic="" 31 Dim Regs,Matches 32 Set Regs=New RegExp 33 Regs.Ignorecase=True 34 Regs.Global=True 35 Regs.Pattern="<img[^>]+src=""([^"">]+)""[^>]*>" 36 Set Matches=Regs.Execute(t0) 37 IF Regs.test(t0) Then 38 Frist_Pic=Matches(0).SubMatches(0) 39 End IF 40 Set Matches=Nothing 41 Set Regs=Nothing 42 End Function