当前位置：首页 > 网络编程 > WEB编程 > ASP > asp函数之图片采集并且本地重命名保存

asp函数之图片采集并且本地重命名保存

点击次数：157 次 发布日期：2008-09-18 15:09:00 作者：源代码网
源代码网推荐

源代码网整理以下图片采集程序，将一个图片保存到本机上，并重新命名。

源代码网整理以下 

源代码网整理以下


<%
"================================================
"作  用：保存远程的文件到本地
"参  数：LocalFileName ------ 本地文件名
"  RemoteFileUrl ------ 远程文件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,"http://image2.sina.com.cn/ent/v/m/2006-05-18/66cb006f0a8411644ac3da5b76c88c77.gif")
response.write "保存成功"
%>

源代码网供稿.
网友评论 (0)
我也要写评论
会员中心
网络编程
本站推荐
网络编程之精华