有没有性能好的“下载系统” http://www.chinaz.com/download 里一大把,夜猫的下载系统应该不错 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 下载任何文件(尤其是IE关联打开的)第一个文件连接处这么写<a name="download" href="<%if 是会员 then response.write "download.asp?filename=" & myfilename%>">下载<%=myfilename%></a>第二个文件:<%Dim StreamDim ContentsDim FileNameDim FileExtConst adTypeBinary = 1FileName = Request.QueryString("FileName")if FileName = "" Then Response.Write "无效文件名." Response.EndEnd if' 下面是不希望下载的文件FileExt = Mid(FileName, InStrRev(FileName, ".") + 1)Select Case UCase(FileExt) Case "ASP", "ASA", "ASPX", "ASAX", "MDB" Response.Write "受保护文件,不能下载." Response.EndEnd Select' 下载这个文件Response.ClearResponse.ContentType = "application/octet-stream"Response.AddHeader "content-disposition", "attachment; filename=" & FileNameSet Stream = server.CreateObject("ADODB.Stream")Stream.Type = adTypeBinaryStream.OpenStream.LoadFromFile Server.MapPath(FileName)While Not Stream.EOS Response.BinaryWrite Stream.Read(1024 * 64)WendStream.CloseSet Stream = NothingResponse.FlushResponse.End%> 险情的也不错.很漂亮.是不是pkydown2.0呀,我安装后,怎么admin.php没有显示,错在哪? $_SERVER['SCRIPT_NAME'], $_SERVER['REQUEST_URI']问题 计算机专业基础课程对PHP程序员有用吗 99乘法表 php_apc.dll APC 引起Apache死掉 为什么显示时有个<号,哪位能讲一下这个表格的显示原理 请问要从PHP页面1传值给2,然后要将2的结果回传给1显示怎么实现? 求助关于外部程序的问题 还是session的问题 取搜索结果中关键字前后30个字符,如何做? PHP与ORACLE的事务处理要如何控制 请教版主和各位高手,用PHP如何实现动态模板来生成静态的网页(*.htm) 链接 MySQL 莫名出错!?
下载任何文件(尤其是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
%>
是不是pkydown2.0呀,我安装后,怎么admin.php没有显示,错在哪?