主页 > 知识库 > asp通用采集函数冗余版可以保存文件到本地

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

热门标签:伊春外呼业务系统 福建外呼增值业务线路 调度系统外呼 宜宾语音外呼系统软件 绵阳防封电销卡价格 河北智能外呼系统软件 中国办理电信400电话 电销机器人源码网盘下载 电销机器人教育
%
'名称: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("https://www.jb51.net.com/", NowDir  "jb51.htmll")
response.Write getHTTPPage("https://www.jb51.net/")
%>

标签:那曲 铜川 延边 苏州 河池 电商邀评 新乡 优质小号

巨人网络通讯声明:本文标题《asp通用采集函数冗余版可以保存文件到本地》,本文关键词  asp,通用,采集,函数,冗余,;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 下面列出与本文章《asp通用采集函数冗余版可以保存文件到本地》相关的同类信息!
  • 本页收集关于asp通用采集函数冗余版可以保存文件到本地的相关信息资讯供网民参考!
  • 推荐文章