从指定网页自动下载其中所有的图片

http://localhost:3148/test2/Default7.aspx

 

从URL下载图片文件到本地变量

请输入URL地址：

正在保存http://www.sohu.com/sohuflash_1.js
正在保存http://www.sohu.com/passport/pp18030_8.js
正在保存http://www.sohu.com/passport/pi18030_9.js
正在保存http://www.sohu.com/passport/images/letter_2.gif
正在保存http://txt.go.sohu.com/ip/soip
正在保存http://images.sohu.com/cs/button/market/2009/TVgaoqing/1601850227.gif
正在保存http://images.sohu.com/cs/market/MKT/04yule/1601850220.gif
正在保存http://images.sohu.com/cs/market/MKT/04yule/1601850220.gif
正在保存this.url
正在保存requestDomain+"image/up.gif";
正在保存requestDomain+"image/down.gif";
正在保存requestDomain+"image/down.gif";
正在保存requestDomain+"image/up.gif";
正在保存http://i8.itc.cn/20081020/213_5d6bb046_8bd8_4ece_8815_b9a650953d83_0.gif
正在保存http://i8.itc.cn/20081020/213_5d6bb046_8bd8_4ece_8815_b9a650953d83_0.gif
正在保存http://i8.itc.cn/20081020/213_5d6bb046_8bd8_4ece_8815_b9a650953d83_0.gif
正在保存http://i3.itc.cn/20090301/775_93e90f3d_03cb_4933_b716_203588813a21_0.jpg
正在保存http://i9.itc.cn/20090301/529_50ccda41_36a5_4ba2_a9cd_2c1eb2228be5_0.jpg
正在保存http://images.sohu.com/uiue/viconA.gif
正在保存http://i0.itc.cn/20090301/394_9cfd442a_e5bf_4fac_8f04_b84bbaea2d56_0.jpg
正在保存http://i6.itc.cn/20090227/394_b98106a6_6328_470b_90d0_5fc2f6b2c62e_0.jpg
正在保存http://images.sohu.com/cs/market/MKT/30wireless/1601400216-1.jpg
正在保存http://images.sohu.com/cs/market/MKT/30wireless/1601400216-2.jpg
正在保存http://images.sohu.com/cs/market/MKT/30wireless/1601400216-3.jpg
正在保存http://i6.itc.cn/20090301/54e_550d9922_036a_437c_adc0_32276348e240_1.jpg
正在保存http://photocdn.sohu.com/20071204/Img253797268.gif
正在保存http://photocdn.sohu.com/20071204/Img253797268.gif
正在保存http://i3.itc.cn/20090228/57c_bd2e2100_c600_4e74_9a02_5144e667550f_0.jpg
正在保存http://photocdn.sohu.com/20071204/Img253796296.gif
正在保存http://photocdn.sohu.com/20071204/Img253796296.gif
正在保存http://photocdn.sohu.com/20071204/Img253796296.gif
正在保存http://d1.biz.itc.cn/q/zs/001/000001/sohu.png?jsid="+(new
正在保存http://i3.itc.cn/20090227/76b_46d3f39c_887a_48dd_a83e_98b8c8e309ae_0.jpg
正在保存http://i6.itc.cn/20090225/262_fc50e207_7b11_4d04_8a3c_d3839b6700c6_0.jpg
正在保存http://i8.itc.cn/20090211/6da_de9de3ef_d3ca_424c_83ea_d2680610d4ae_0.gif
正在保存'http://alpha.brand.sogou.com/brand_pv?md5=57f1e4b5a273a11a0ab167816f5930df';
正在保存http://images.sohu.com/cs/online/160x115/160x115-1.jpg
正在保存http://images.sohu.com/cs/online/160x115/160x115-2.jpg
正在保存http://i1.itc.cn/20090228/269_3d45443f_b232_44eb_9f05_742dfa778246_0.jpg
正在保存http://i3.itc.cn/20090228/6fc_dad56adb_31be_4ec4_9195_b98e4c52ee25_0.jpg
正在保存http://photocdn.sohu.com/20080302/d5_a02d0201_05a0_45bf_b9dc_962918a5c7a6_0.gif
正在保存http://db.auto.sohu.com/attachment/js/brand.js
正在保存http://i6.itc.cn/20090227/80_958a20e3_a501_47c1_9b1a_e3e4b1601c1e_0.jpg
正在保存http://women.sohu.com/upload/yxb/focus/20090220/sohu.jpg
正在保存http://baodian.women.sohu.com/javascript/voteFunction.js
正在保存http://i6.itc.cn/20080922/15c_faa91582_5de9_4009_ba70_004a25def5de_0.gif
正在保存http://baodian.women.sohu.com/javascript/voteFunction1.js
正在保存http://images.sohu.com/cs/button/longtuo/ledaojia/7601000227a.gif
正在保存http://images.sohu.com/cs/button/longtuo/ledaojia/760100227-2.gif
正在保存http://images.sohu.com/cs/button/longtuo/ledaojia/760100227-3.gif
正在保存http://images.sohu.com/cs/button/yiche/Sohu_default.html
正在保存http://images.sohu.com/cs/button/zhongshi/2008/160450224.gif
正在保存http://i5.itc.cn/20090227/121_38d70ea3_c1d4_49a3_8b52_977324e90c64_0.jpg
正在保存http://i0.itc.cn/20090227/ac_87e5b8b7_3a20_4250_a35a_8f8073c6a5cc_0.jpg
正在保存http://i3.itc.cn/20090227/66b_c4ddf6f8_14c2_472e_b332_63614ecdf918_0.jpg
正在保存http://i7.itc.cn/20090301/65c_c3767a12_00f6_4c09_b0bb_c72bf019dcc9_0.jpg
正在保存'http://alpha.brand.sogou.com/brand_pv?md5=4c599fad633fbd69e554469c16ff9816';
正在保存'http://alpha.brand.sogou.com/brand_pv?md5=004653e04cc9c01118d552e306d07005';
正在保存'http://alpha.brand.sogou.com/brand_pv?md5=60dac6731f9e219dd329bd17801dde8f';
正在保存http://images.17173.com/2009/www/roll/200902/0227sohu01.jpg
正在保存http://images.sohu.com/cs/rbt/online/rbt_09cw/090212_98x65.jpg
正在保存http://www.sohu.com/upload/hp/images/icon01.gif
正在保存http://www.sohu.com/upload/hp/images/icon02.gif
正在保存http://www.sohu.com/upload/hp/images/icon03.gif
正在保存http://www.sohu.com/upload/hp/images/icon04.gif
正在保存http://www.sohu.com/upload/hp/images/icon05.gif
正在保存http://images.sohu.com/cs/sohuim/xiaozt/version/2.0/js/loader.sohu.js
正在保存http://images.sohu.com/cs/jsfile/adm/adm2008.js
正在保存[];
正在保存[];
正在保存[];
正在保存[];
正在保存http://images.sohu.com/cs/button/tcl/2007/news1001001224.swf
正在保存http://images.sohu.com/cs/button/benchi/2001501115.swf
正在保存http://images.sohu.com/cs/button/gz/215-31/news.swf
正在保存[];AD.src2=[];AD.tag=[];AD.tag2=[];AD.href=[];AD.href2=[];AD.delay=8000;
正在保存http://js.sohu.com/pv.js

 

<%@ Import NameSpace="System.Net" %>
<%@ Import Namespace="System.IO" %>
<script language="VB" runat="server">
Sub Enter_Click(Sender As Object, E As EventArgs)
 On Error Resume Next
 '下面首先返回指定URL的数据字符串
 Dim wc As New WebClient()      
 Dim strTemp As String       
 strTemp = Encoding.Default.GetString(wc.DownloadData(txtURL.Text)) 
 '下面利用正则表达式返回字符串中所有图片地址
 Dim r As New Regex("src/s*=/s*(""(?<ga>[^""]*)""|(?<ga>/S+))" , RegexOptions.IgNoreCase)
 Dim m As Match
 m=r.Match(strTemp)                                '查找第一个匹配项
 Do While m.Success                                '如果找到就继续循环
  message.Text &= "<br>正在保存" & m.Groups("ga").Value
  Call SavePic( m.Groups("ga").Value)     '调用过程保存当前匹配项
  m=m.NextMatch()          '查找下一个匹配项
 Loop
End Sub
'该过程用来将图片按原来名称保存到C:/DownLoad文件夹下
Sub SavePic(strURL As String)
 '首先根据strURL返回文件保存路径
 Dim filePath As String
        filePath = "d:/DownLoad/" & Path.GetFileName(strURL)
 '下面将图片保存到指定路径
 Dim wc As New WebClient()
 wc.DownloadFile(strURL,filePath)
End Sub
</script>
<html>
<body>
 <h3 align="center">从URL下载图片文件到本地变量</h3>
 <form id="Form1" runat="server">
  请输入URL地址：
  <asp:Textbox id="txtURL" runat="server" />
  <asp:Button id="enter" Text="确定" Onclick="Enter_Click" runat="server" />
  <br><asp:Label id="Message"  runat="server"/>
 </form>
</body>
</html>