<%
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")
%>

上一篇: 实现不同域（Domain）之间的数据交换
下一篇: 发送Flash邮件：DreamMail 4.2.3.0正式版试用手记
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
最新日志: