帮我看看这个下载程序错在哪儿？在线等着您！！！

Question

echo fread($fp,1024);
换成
echo fread($fp,filesize($download_file));试试

Answer 1

你的文件原来是什么内容？虽然是乱码，但是这个好象没乱么：txl.xlsRar!蠍s yt ?馦?鉢毻≒&03 txl.xls?]是RAR文件吧？那你输出显示出来肯定是乱码了~

Answer 2

没错啊,换个下载文件(.rar)试试

Answer 3

header("Content-Disposition: Attechment;filename=$filename")我可能写错了

Answer 4

是.rar文件。文件名叫txl.rar   但是应该是什么文件都可以下载的啊。$truepath       = 'down/'.basename($download_file);
echo $truepath;//  =down/txl.rarheader("Content-Disposition: filename=".basename($download_file)); //basename后，filename=txl.rar的 bonniewater(陪你去看海) 
echo fread($fp,1024);
换成
echo fread($fp,filesize($download_file));//应该是错误的成了filesize('down/'.$filename )我已经换成了echo fread($fp,filesize(basename($download_file)));//那么才是filesize($filename)
请一定帮忙解答。我等着，急死了

Answer 5

function download()
{
$DownloadDir= $_GET['path'];
$DownloadFile  = $_GET['filename'];
$fp = fopen($DownloadDir.$DownloadFile,"r"); // 打开文件
// 输入文件标签
Header("Content-type: application/octet-stream");
Header("Accept-Ranges: bytes");
Header("Accept-Length: ".filesize($DownloadDir.$DownloadFile));
Header("Content-Disposition: attachment; filename=" . $DownloadFile);
// 输出文件内容
echo fread($fp,filesize($DownloadDir . $DownloadFile));
fclose($fp);
}
download();我这样写的，你看看有没有帮助

Answer 6

请问陪你去看海“$_GET”是什么意思？

Answer 7

To  lijingfeng(里特)php新版本的全局变量里的一个，url的value

Answer 8

下载任何文件（尤其是IE关联打开的）
第一个文件连接处这么写
<a name="download" 
href="<%if 是会员 then response.write "download.asp?filename="  & myfilename%>">
下载<%=myfilename%></a>第二个文件：
<%
Dim Stream
Dim Contents
Dim FileName
Dim FileExt
Const adTypeBinary = 1
FileName = Request.QueryString("FileName")
if FileName = "" Then
    Response.Write "无效文件名."
    Response.End
End if
' 下面是不希望下载的文件
FileExt = Mid(FileName, InStrRev(FileName, ".") + 1)
Select Case UCase(FileExt)
    Case "ASP", "ASA", "ASPX", "ASAX", "MDB"
        Response.Write "受保护文件,不能下载."
        Response.End
End Select
' 下载这个文件
Response.Clear
Response.ContentType = "application/octet-stream"
Response.AddHeader "content-disposition", "attachment; filename=" & FileName
Set Stream = server.CreateObject("ADODB.Stream")
Stream.Type = adTypeBinary
Stream.Open
Stream.LoadFromFile Server.MapPath(FileName)
While Not Stream.EOS
    Response.BinaryWrite Stream.Read(1024 * 64)
Wend
Stream.Close
Set Stream = Nothing
Response.Flush
Response.End
%>