寧夏網絡公司|寧夏網站建設|銀川網絡公司|銀川網站建設
  15595599605 13309518098 掃描加微信:
   
網站首頁 | 網站建設 | 關于我們 | 網絡營銷 | 常見問題 | 相關知識 | 聯系我們 | 客戶案例
售前: 15595599605
13309518098
售后: 13014290997
15008617747
QQ:  建站咨詢
 建站咨詢
 業務受理
 售后服務
套餐類型 一 初級型 2015-02-10
套餐類型 二 經濟型 2015-02-10
套餐類型 三 普通型 2015-02-10
套餐類型 四 標準型 2015-02-10
套餐類型 五 行業型 2015-02-10
套餐類型 六 門戶型 2015-02-10
您的位置:網站首頁>>>asp提取圖片地址的代碼
asp提取圖片地址的代碼
作者:銀川志達四方電子科技有限公司  來源:本站整理  
發布時間:2010-10-31 11:38:56  發布人:志達四方

<%
dim Content
Content="銀川志達四方電子科技有限公司<IMG height=267 src='http://www.lefiores.com/image/logo.jpg' width=400 border=0>是寧夏銀川地區一家網絡公司。"

Str = Content
Set regEx = New RegExp '建立正則表達式。
regEx.Pattern = "(<img)(.[^<>]*)(src=)('|"&CHR(34)&"| )?(.[^'|\s|"&CHR(34)&"]*)(\.)(jpg|gif|png|bmp|jpeg)('|"&CHR(34)&"|\s|>)(.[^>]*)(>)" '設置模式。
regEx.IgnoreCase = True '設置是否區分字符大小寫。
regEx.Global = True '設置全局可用性。
Set Matches = regEx.Execute(Str) '執行搜索。

For Each Match in Matches '遍歷匹配集合。
'輸入圖片地址
Response.Write "<img src='"&Match.SubMatches(4)&"."&Match.SubMatches(6)&"'>" '顯示圖片
Response.Write Match.SubMatches(4)&"."&Match.SubMatches(6)&"<br>" '圖片地址
Next
%>

-------------------------------------------------------------------------------------------------

業務范圍:網站建設 網頁設計 網站制作 網頁制作 手機網站 微信網站

編輯:【銀川志達四方電子科技有限公司】錄入:【網站建設部】

】 【返回】 【打印】 【關閉

     
營業執照 組織機構 稅務登記 安全網站
 
銀川志達四方電子科技有限公司
業務電話:15595599605 13309518098
客服熱線:13014290997 15008617747
地址:銀川市金鳳區康平路悅海新天地購物廣場
E-mail:49773161@qq.com
在線客服:點擊這里給我發消息 點擊這里給我發消息 點擊這里給我發消息
版權所有 © 2015 銀川志達四方電子科技有限公司 寧ICP備05000522號  寧公網安備 64010602000041號 
亚洲精品国产自在现线_亚洲欧美国产综合在线_高清欧美videossexo