1. 云栖社区>
  2. >
  3. 正文

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

作者:用户 来源:互联网 时间:2016-10-28 17:31:22

asp通用采集函数冗余版可以保存文件到本地_小偷/采集 - 摘要: 本文讲的是asp通用采集函数冗余版可以保存文件到本地_小偷/采集, <% '名称:asp通用采集函数冗余版,要精品版的有心人自己改 '作者:柳永法 '日期:2007-6-23 Function getHTTPPage(Path)     t = GetBody(Path)     getHTTPPa

<%
'名称: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("yun_qi_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/")
%>

以上是云栖社区小编为您精心准备的的内容,在云栖社区的博客、问答、公众号、人物、课程等栏目也有的相关内容,欢迎继续使用右上角搜索按钮进行搜索冗余度与编码效率、冗余是什么意思、循环冗余检查、数据冗余、冗余电源,以便于您获取更多的相关知识。