宁夏网络公司|宁夏最新大奖娱乐官方网站88pt88大奖娱乐客户端|大奖888手机版网络公司|大奖888手机版最新大奖娱乐官方网站88pt88大奖娱乐客户端
15595599605 13309518098 QQ: 点击这里给我发消息 点击这里给我发消息 点击这里给我发消息
   
最新大奖娱乐官方网站首页 | 最新大奖娱乐官方网站88pt88大奖娱乐客户端 | 关于我们 | 网络营销 | 常见问题 | 相关知识 | 联系我们 | 客户案例
售前: 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提取图片地址的代码
作者:大奖888手机版志达四方电子科技有限公司  来源:本站整理  
发布时间:2010-10-31 11:38:56  发布人:志达四方

<%
dim Content
Content="大奖888手机版志达四方电子科技有限公司<IMG height=267 src='http://www.52nx.net/image/logo.jpg' width=400 border=0>是宁夏大奖888手机版地区一家网络公司。"

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
%>

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

业务范围:最新大奖娱乐官方网站88pt88大奖娱乐客户端 网页设计 最新大奖娱乐官方网站制作 网页制作 手机最新大奖娱乐官方网站 微信最新大奖娱乐官方网站

编辑:【大奖888手机版志达四方电子科技有限公司】录入:【最新大奖娱乐官方网站88pt88大奖娱乐客户端部】

】 【返回】 【打印】 【关闭

     
营业执照 组织机构 税务登记 安全最新大奖娱乐官方网站
大奖888手机版志达四方电子科技有限公司
业务电话:15595599605 13309518098
客服热线:13014290997 15008617747
地址:大奖888手机版市金凤区康平路悦海新天地购物广场
E-mail:49773161@qq.com
在线客服:点击这里给我发消息 点击这里给我发消息 点击这里给我发消息
版权所有 © 2015 大奖888手机版志达四方电子科技有限公司 宁ICP备05000522号  宁公网安备 64010602000041号