作家
登录

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

作者: 来源:www.28hudong.com 2013-03-30 08:35:14 阅读 我要评论

<% '名称:asp通用采集函数冗余版,要精品版的有心人自己改 '作者:柳永法 '日期:2007-6-23 Function getHTTPPage(Path) t = GetBody(Path) getHTTPPage = BytesToBstr(t, "GB2312") End Function Function GetBody(url) On Error Resume Next Set xmlhttp = CreateObject("Microsoft.XMLHTTP") With xmlhttp .Open "Get", url, False, "", "" .Send .waitForResponse 1000 GetBody = .ResponseBody End With Set xmlhttp = Nothing End Function Function BytesToBstr(Body, Cset) On Error Resume Next Dim objstream Set objstream = Server.CreateObject("adodb.stream") objstream.Type = 1 objstream.Mode = 3 objstream.Open objstream.Write Body objstream.Position = 0 objstream.Type = 2 objstream.Charset = Cset BytesToBstr = objstream.ReadText objstream.Close Set objstream = Nothing End Function Function getHTTPimg(url) On Error Resume Next Dim xmlhttp Set xmlhttp = server.CreateObject("MSXML2.XMLHTTP") xmlhttp.Open "GET", url, false xmlhttp.send() If xmlhttp.Status<>200 Then Exit Function getHTTPimg = xmlhttp.responseBody Set xmlhttp = Nothing If Err.Number<>0 Then Err.Clear End Function Function Save2Local(from, tofile) Dim geturl, objStream, imgs geturl = Trim(from) imgs = gethttpimg(geturl) Set objStream = Server.CreateObject("ADODB.Stream") objStream.Type = 1 objStream.Open objstream.Write imgs objstream.SaveToFile tofile, 2 objstream.Close() Set objstream = Nothing End Function %> <% NowDir = server.mappath("/") Call Save2Local("http://www.baidu.com/img/logo.gif", NowDir & "baidulogo.gif") Call Save2Local("http://flash.jninfo.net/images/banner.swf", NowDir & "banner.swf") Call Save2Local("http://www.jb51.net.com/", NowDir & "jb51.htmll") response.Write getHTTPPage("http://www.jb51.net/") %>

  推荐阅读

  Asp下实现多表单域无组件文件上传的实例

最近经常有人问到这类问题,在此转贴一下,内容: 1。数据库表结构(Access): UserID:Text(保存上传文件的用户ID) FileContentType:Text(用来保存上传文件的类型,eg:"Application/msword",主要用来使用户能正确下载>>>详细阅读


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

地址:http://www.17bianji.com/kaifa2/ASP/32419.html

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)