|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
熟悉了PHP和MYSQL开发的要领之后,再回头看你写的那个留言本,你也许会怀疑那真的是你写的吗?当然,如果屋里还有鬼的话,也许是它写的-_-本文次要引见若何用php法式完成将近程收集文件下载到本人的主机(办事器、虚拟主机)上,固然也供应asp、asp.net的源码给人人参考. 比来让 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();
//挪用WebClient的DownloadFile办法
client.DownloadFile(siteURL,fileName);
}
}
注重事项:
1.相干的目次能够需求创立,详细请看源码.好比temp/、down/.
2.个中php版本的源码是撑持自界说url的,但asp、asp.net版本的并没有供应自界说.
3.在拷贝大文件时,国际估量撑持欠佳.由于思索到法式的超不时间,但在国外撑持很好.
好比Blinux将一个近300M的文件转移到另外一个办事器上消耗工夫是28秒.这是国际没法想象的.
最初但愿人人反应下利用后果.
一些真正的强人总会搞出新玩意来丢给你,你不学就落后了,也印证了前人的经验,果然是学无止境啊! |
|