校园春色亚洲色图_亚洲视频分类_中文字幕精品一区二区精品_麻豆一区区三区四区产品精品蜜桃

主頁(yè) > 知識(shí)庫(kù) > asp通用采集函數(shù)冗余版可以保存文件到本地

asp通用采集函數(shù)冗余版可以保存文件到本地
熱門標(biāo)簽：伊春外呼業(yè)務(wù)系統(tǒng) 福建外呼增值業(yè)務(wù)線路 調(diào)度系統(tǒng)外呼 宜賓語(yǔ)音外呼系統(tǒng)軟件 綿陽(yáng)防封電銷卡價(jià)格 河北智能外呼系統(tǒng)軟件 中國(guó)辦理電信400電話 電銷機(jī)器人源碼網(wǎng)盤下載 電銷機(jī)器人教育
%
'名稱：asp通用采集函數(shù)冗余版，要精品版的有心人自己改
'作者：柳永法
'日期：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/")
%>

標(biāo)簽：那曲 銅川 延邊 蘇州 河池 電商邀評(píng) 新鄉(xiāng) 優(yōu)質(zhì)小號(hào)

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《asp通用采集函數(shù)冗余版可以保存文件到本地》，本文關(guān)鍵詞  asp,通用,采集,函數(shù),冗余,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《asp通用采集函數(shù)冗余版可以保存文件到本地》相關(guān)的同類信息！
  • 本頁(yè)收集關(guān)于asp通用采集函數(shù)冗余版可以保存文件到本地的相關(guān)信息資訊供網(wǎng)民參考！
    • 推薦文章
    主站蜘蛛池模板： 庄浪县| 乐陵市| 子长县| 菏泽市| 正定县| 饶平县| 富民县| 奎屯市| 昌黎县| 梓潼县| 蓬莱市| 合作市| 龙海市| 修武县| 惠安县| 饶河县| 东海县| 余江县| 达日县| 分宜县| 炉霍县| 钦州市| 大冶市| 德阳市| 五大连池市| 太谷县| 天峻县| 贵南县| 肇源县| 布尔津县| 丰县| 云梦县| 石泉县| 武定县| 绥化市| 张家港市| 雷州市| 浦北县| 开平市| 绥宁县| 徐汇区|