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

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