flashdown.asp

俄罗斯方块源码 俄罗斯方块源码 俄罗斯方块源码

<%

Function GetURL1(url)
    Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
          With Retrieval
          .Open "GET", url, False, "", ""
          .Send
          GetURL1 = .ResponseBody
          End With
    Set Retrieval = Nothing
End Function

function savefile(http,localpath)
Set  mstream  =  Server.CreateObject("ADODB.Stream")  
mstream.Type  =  1  
mstream.Open 
'获取图片内容
mstream.Write  geturl1(http)  
'保存文件
mstream.SaveToFile  server.mappath(localpath),2
Set  mstream=nothing
end function
call savefile("http://flash.tin8.com/flash8.htm","/flash8.htm")
%>