asp中獲取內(nèi)容中所有圖片與獲取內(nèi)容中第一個(gè)圖片的代碼
更新時(shí)間：2011年01月05日 23:48:42 作者：
用asp獲取內(nèi)容中的圖片與獲取內(nèi)容中的第一個(gè)圖片地址，主要是cms中保存內(nèi)容中的圖片需要用得到，使用的是正則的方法。
復(fù)制代碼 代碼如下:
'=====================================
'獲取內(nèi)容中所有圖片
'=====================================
Function Get_ImgSrc(ByVal t0)
Dim t1,Regs,Matches,Match
t1=""
IF Not(IsNull(t0) Or Len(t0)=0) Then
Set Regs=New RegExp
Regs.Pattern="<img[^>]+src=""([^"">]+)""[^>]*>"
Regs.Ignorecase=True
Regs.Global=True
Set Matches=Regs.Execute(t0)
IF Matches.Count>0 Then
For Each Match In Matches
IF Left(Match.SubMatches(0),7)<>"http://" Then
t1=t1&"<option value="""&Match.SubMatches(0)&""">"&Match.SubMatches(0)&"</option>"
End IF
Next
End IF
End IF
Get_ImgSrc=t1
Set Matches=Nothing
Set Regs=Nothing
End Function
'=====================================
'獲取內(nèi)容中第一個(gè)圖片
'=====================================
Function Frist_Pic(ByVal t0)
Frist_Pic=""
Dim Regs,Matches
Set Regs=New RegExp
Regs.Ignorecase=True
Regs.Global=True
Regs.Pattern="<img[^>]+src=""([^"">]+)""[^>]*>"
Set Matches=Regs.Execute(t0)
IF Regs.test(t0) Then
Frist_Pic=Matches(0).SubMatches(0)
End IF
Set Matches=Nothing
Set Regs=Nothing
End Function
相關(guān)文章
上篇文字PHP使用Google的translate API寫了以后，突然想做個(gè)ASP的類，以致asp用戶使用。遂寫起，發(fā)現(xiàn)asp忘了不少。如主題吧，思路和C#的這篇是完全一樣的，我只是把它兌成ASP的實(shí)現(xiàn)方式而已。2008-12-12
ASP給圖片加水印是需要組件的,常用的有aspjpeg軟件和中國(guó)人自己開(kāi)發(fā)的wsImage軟件，可以上網(wǎng)搜索下載這兩個(gè)軟件，推薦使用咱們中國(guó)人自己開(kāi)發(fā)的wsImage，畢竟是中文版，容易操作2012-12-12
asp下檢查表中是否存在某個(gè)字段（列）函數(shù)
asp可以方便的檢查數(shù)據(jù)庫(kù)表中，是否存在這個(gè)字段2008-03-03
給blog加上運(yùn)行代碼功能...2006-09-09
簡(jiǎn)單的說(shuō)，asp是位于服務(wù)器端的腳本運(yùn)行環(huán)境，通過(guò)這種環(huán)境，我們可以創(chuàng)建和運(yùn)行動(dòng)態(tài)的、交互式的Web應(yīng)用程序，帶來(lái)測(cè)試平臺(tái)。本文將告訴大家如何建立一種簡(jiǎn)單的asp管理系統(tǒng)服務(wù)器。2015-10-10
Asp Access 創(chuàng)建靜態(tài)文件/HTML
Asp Access 創(chuàng)建靜態(tài)文件/HTML...2006-10-10
asp下一些高級(jí)應(yīng)用中會(huì)出現(xiàn)的一些問(wèn)題解決方法2008-08-08
本文主要介紹了python實(shí)現(xiàn)線性回歸的示例代碼，文中通過(guò)示例代碼介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，需要的朋友們下面隨著小編來(lái)一起學(xué)習(xí)學(xué)習(xí)吧2009-11-11
asp實(shí)現(xiàn)的sha1加密解密代碼（和C#兼容）
這篇文章主要介紹了asp實(shí)現(xiàn)的sha1加密解密代碼,可以和ASP.NET（C#）相互兼容,需要的朋友可以參考下2014-08-08
ASP讀取Request.QueryString編碼的函數(shù)代碼
ASP讀取Request.QueryString編碼的函數(shù)代碼，學(xué)習(xí)asp的朋友可以參考下。2011-09-09