asp通用采集函数冗余版可以保存文件到本地

时间:2022-03-02 01:38:21
  1. <%  
  2. '名称:asp通用采集函数冗余版,要精品版的有心人自己改  
  3. '作者:柳永法  
  4. '日期:2007-6-23  
  5. Function getHTTPPage(Path)  
  6.     t = GetBody(Path)  
  7.     getHTTPPage = BytesToBstr(t, "GB2312")  
  8. End Function  
  9.  
  10. Function GetBody(url)  
  11.     On Error Resume Next  
  12.     Set xmlhttp = CreateObject("Microsoft.XMLHTTP")  
  13.     With xmlhttp  
  14.         .Open "Get", url, False, """"  
  15.         .Send  
  16.         .waitForResponse 1000  
  17.         GetBody = .ResponseBody  
  18.     End With  
  19.     Set xmlhttp = Nothing  
  20. End Function  
  21.  
  22. Function BytesToBstr(Body, Cset)  
  23.     On Error Resume Next  
  24.     Dim objstream  
  25.     Set objstream = Server.CreateObject("adodb.stream")  
  26.     objstream.Type = 1  
  27.     objstream.Mode = 3  
  28.     objstream.Open  
  29.     objstream.Write Body  
  30.     objstream.Position = 0  
  31.     objstream.Type = 2  
  32.     objstream.Charset = Cset  
  33.     BytesToBstr = objstream.ReadText  
  34.     objstream.Close  
  35.     Set objstream = Nothing  
  36. End Function  
  37.  
  38. Function getHTTPimg(url)  
  39.     On Error Resume Next  
  40.     Dim xmlhttp  
  41.     Set xmlhttp = server.CreateObject("MSXML2.XMLHTTP")  
  42.     xmlhttp.Open "GET", url, false  
  43.     xmlhttp.send()  
  44.     If xmlhttp.Status<>200 Then Exit Function  
  45.     getHTTPimg = xmlhttp.responseBody  
  46.     Set xmlhttp = Nothing  
  47.     If Err.Number<>0 Then Err.Clear  
  48. End Function  
  49.  
  50. Function Save2Local(from, tofile)  
  51.     Dim geturl, objStream, imgs  
  52.     geturl = Trim(from)  
  53.     imgs = gethttpimg(geturl)  
  54.     Set objStream = Server.CreateObject("ADODB.Stream")  
  55.     objStream.Type = 1  
  56.     objStream.Open  
  57.     objstream.Write imgs  
  58.     objstream.SaveToFile tofile, 2  
  59.     objstream.Close()  
  60.     Set objstream = Nothing  
  61. End Function  
  62.  
  63. %>  
  64.  
  65. <%  
  66. NowDir = server.mappath("/")  
  67. Call Save2Local("http://www.baidu.com/img/logo.gif", NowDir & "baidulogo.gif")  
  68. Call Save2Local("http://flash.jninfo.net/images/banner.swf", NowDir & "banner.swf")  
  69. Call Save2Local("//www.zzvips.com/", NowDir & "zzvips.htmll")  
  70. response.Write getHTTPPage("//www.zzvips.com/")  
  71. %>