濮阳杆衣贸易有限公司

主頁 > 知識(shí)庫 > SaveRemoteFile函數(shù)之a(chǎn)sp實(shí)現(xiàn)保存遠(yuǎn)程的文件到本地的代碼

SaveRemoteFile函數(shù)之a(chǎn)sp實(shí)現(xiàn)保存遠(yuǎn)程的文件到本地的代碼
熱門標(biāo)簽：宜賓語音外呼系統(tǒng)軟件 電銷機(jī)器人教育 調(diào)度系統(tǒng)外呼 中國(guó)辦理電信400電話 綿陽防封電銷卡價(jià)格 河北智能外呼系統(tǒng)軟件 電銷機(jī)器人源碼網(wǎng)盤下載 伊春外呼業(yè)務(wù)系統(tǒng) 福建外呼增值業(yè)務(wù)線路
'==================================================
'過程名：SaveRemoteFile
'作  用：保存遠(yuǎn)程的文件到本地
'參  數(shù)：LocalFileName ------ 本地文件名
'參  數(shù)：RemoteFileUrl ------ 遠(yuǎn)程文件URL
'==================================================
Function SaveRemoteFile(LocalFileName,RemoteFileUrl)
    SaveRemoteFile=True
    dim Ads,Retrieval,GetRemoteData    
    On Error Resume Next
    Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
    With Retrieval
        .Open "Get", RemoteFileUrl, False, "", ""
        .Send
        If .Readystate>4 or .Status > 300 then
            SaveRemoteFile=False
            Exit Function
        End If
        GetRemoteData = .ResponseBody
    End With
    Set Retrieval = Nothing
    'If LenB(GetRemoteData)  100 Then Exit Function
    'If MaxFileSize > 0 Then
            'If LenB(GetRemoteData) > 5000 Then Exit Function
            Response.Write(Round(LenB(GetRemoteData)/1024))  "KB"
    'End If
    Set Ads = Server.CreateObject("Adodb.Stream")
    With Ads
        .Type = 1
        .Open
        .Write GetRemoteData
        .SaveToFile server.MapPath(LocalFileName),2
        .Cancel()
        .Close()
    End With
    If Err.number>0 then
      SaveRemoteFile=False
      Exit Function
         Err.Clear
       End If
    Set Ads=nothing

end Function

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

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《SaveRemoteFile函數(shù)之a(chǎn)sp實(shí)現(xiàn)保存遠(yuǎn)程的文件到本地的代碼》，本文關(guān)鍵詞  SaveRemoteFile,函數(shù),之,asp,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《SaveRemoteFile函數(shù)之a(chǎn)sp實(shí)現(xiàn)保存遠(yuǎn)程的文件到本地的代碼》相關(guān)的同類信息！
  • 本頁收集關(guān)于SaveRemoteFile函數(shù)之a(chǎn)sp實(shí)現(xiàn)保存遠(yuǎn)程的文件到本地的代碼的相關(guān)信息資訊供網(wǎng)民參考！
    • 推薦文章
    玉山县| 台南市| 淄博市| 乌兰浩特市| 达拉特旗| 开封县| 大埔县| 温泉县| 疏附县| 介休市| 连城县| 和田市| 南丹县| 安阳县| 上杭县| 江孜县| 三明市| 连州市| 凉山| 都兰县| 望都县| 平度市| 秭归县| 东乡县| 西乌珠穆沁旗| 永修县| 康定县| 长垣县| 易门县| 奉新县| 禹城市| 高青县| 南召县| 卓资县| 阿坝| 光山县| 舟山市| 朝阳区| 平和县| 南涧| 常熟市|