日期:2012-05-18 浏览次数:20634 次
最近让 Lc. 下载《汪洋中的一条船》这部感人的励志电视剧,为了分享方便,于是我提供一个Godaddy的免费FTP.
考虑到稳定性和专一性,我想重新开启一个godaddy的免费空间,但是此时已经上传了两集,一共是400多兆.怎么办呢?
于是乎我想起了之前转移空间时用到的一个php文件,他可以下载远程网络文件到服务器上,也就是只要是可以下载的url,就可以转移到新的服务器上.
废话不多说,直接亮出将远程网络文件下载到服务器的php源码(测试通过,很好很强大).
<form method="post">
<input name="url" size="50" />
<input name="submit" type="submit" />
</form>
< ?php
// maximum execution time in seconds
set_time_limit (24 * 60 * 60);
if (!isset($_POST['submit'])) die();
// folder to save downloaded files to. must end with slash
$destination_folder = 'temp/';
$url = $_POST['url'];
$newfname = $destination_folder . basename($url);
$file = fopen ($url, "rb");
if ($file) {
$newf = fopen ($newfname, "wb");
if ($newf)
while(!feof($file)) {
fwrite($newf, fread($file, 1024 * 8 ), 1024 * 8 );
}
}
if ($file) {
fclose($file);
}
if ($newf) {
fclose($newf);
}
?>
当然还需要展示下asp版本的源码(未测试)
< %
function downfilea(d_target, s_target)
On Error Resume Next
dim myhttp, objstream
set myhttp = server.createobject( "MSXML2.XMLHTTP ")
myhttp.open "GET ", d_target, false
myhttp.send()
set objstream = Server.CreateObject( "adodb.stream ")
objstream.Type = 1
objstream.Mode = 3
objstream.Open
objstream.Write myhttp.responseBody
objstream.SaveToFile s_target, 2
if err.number <> 0 then err.Clear
end function
downfilea "http://www.abc.com/xxx.rar ", Server.MapPath( "down/xxx.rar ")
Response.write "ok "
%>
还有asp.net版本的源码(未测试)
using System;
using System.Net;
using System.IO;
class DownloadFile;
{
static void Main(string[] args)
{
//你的远程文件
string siteURL="http://www.abc.com/xxx.rar";
//下载到本地的路径及文件名
string fileName="c:\\xxx.rar";
//实例化一个WebClient
WebClient client=new WebClient();
&