時(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)閱讀
熱門文章 Active Server Pages 錯(cuò)誤 'ASP 0131'解決方
人氣排行 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)]