有没有性能好的“下载系统”

Question

http://www.chinaz.com/download 里一大把，夜猫的下载系统应该不错

Answer 1

下载任何文件（尤其是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
%>

Answer 2

险情的也不错.很漂亮.
是不是pkydown2.0呀,我安装后,怎么admin.php没有显示,错在哪?