木子屋
 

标题: 自动下载远程服务器上的文件到本地服务器

作者: dnawo

日期: 2006-12-18 08:54 PM

分类: Web编程

内容: <%
Function savefile(url)
    Dim filename,savepath
    filename=right(url,len(url)-instrRev(url,"/"))
    savepath="images/" & filename
    set xmlhttp=server.createobject("Microsoft.XMLHTTP")
    xmlhttp.open "get",url,false
    xmlhttp.send
    filedata=xmlhttp.ResponseBody
    set xmlhttp=nothing
    set objAdostream=server.createobject("ADODB.Stream")
    objAdostream.Open()
    objAdostream.type=1
    objAdostream.Write(filedata)
    objAdostream.SaveToFile(server.mappath(savepath))
    objAdostream.SetEOS
    set objAdostream=nothing
End Function
Call savefile("http://www.mzwu.com/mzwucom.rar")
%>

+ 查看当前日志评论 (0)

 

登录

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.047 ms

标题: 自动下载远程服务器上的文件到本地服务器

你没有权限发表评论

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.047 ms

暂无评论

返回

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.047 ms