IT貓撲網(wǎng)：您身邊最放心的安全下載站！ 最新更新|軟件分類|軟件專題|手機(jī)版|論壇轉(zhuǎn)貼|軟件發(fā)布

您當(dāng)前所在位置：首頁(yè) → 網(wǎng)絡(luò)編程 → Asp編程 → asp圖片采集并且本地重命名保存的函數(shù)

asp圖片采集并且本地重命名保存的函數(shù)

時(shí)間：2015/6/28來(lái)源：IT貓撲網(wǎng)作者：網(wǎng)管聯(lián)盟我要評(píng)論(0)

圖片采集程序，將一個(gè)圖片保存到本機(jī)上，并重新命名。


<%
'================================================
'作  用：保存遠(yuǎn)程的文件到本地
'參  數(shù)：LocalFileName ------ 本地文件名
'  RemoteFileUrl ------ 遠(yuǎn)程文件URL
'返回值：True  ----成功
' False ----失敗
'================================================
Sub SaveRemoteFile(s_LocalFileName,s_RemoteFileUrl)
 Dim Ads, Retrieval, GetRemoteData
 On Error Resume Next
 Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
 With Retrieval
  .Open "Get", s_RemoteFileUrl, False, "", ""
  .Send
  GetRemoteData = .ResponseBody
 End With
 Set Retrieval = Nothing
 Set Ads = Server.CreateObject("Adodb.Stream")
 With Ads
  .Type = 1
  .Open
  .Write GetRemoteData
  .SaveToFile Server.MapPath(s_LocalFileName), 2
  .Cancel()
  .Close()
 End With
 Set Ads=nothing
End Sub
%>


<%
path="./pic/1.gif"
Call SaveRemoteFile(path,"https://image2.sina.com.cn/ent/v/m/2006-05-18/66cb006f0a8411644ac3da5b76c88c77.gif")
response.write "保存成功"
%>

關(guān)鍵詞標(biāo)簽：命名,保存,函數(shù),本地,

相關(guān)閱讀

文章評(píng)論
發(fā)表評(píng)論

熱門文章 Active Server Pages 錯(cuò)誤 'ASP 0131'解決方Active Server Pages 錯(cuò)誤 'ASP 0131'解決方

相關(guān)下載

人氣排行 ASP下標(biāo)越界的解決方法ASP代碼中如何屏蔽ip地址 禁止某IP段訪問(wèn)網(wǎng)站“文件共享鎖定數(shù)溢出” 原因及解決方法無(wú)法寫入數(shù)據(jù)庫(kù)的解決方法如何用ASP來(lái)獲取客戶端真實(shí)IP的地址用Asp編程實(shí)現(xiàn)QQ的在線情況查詢ASP常用函數(shù)列表ASP用FSO生成HTML簡(jiǎn)單實(shí)例+詳解[原創(chuàng)]