<%
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
' 下载这个文件

name=Mid(FileName, InStrRev(FileName, "/")+1)

Response.Clear
Response.ContentType = "application/octet-stream"
Response.AddHeader "content-disposition", "attachment; filename="&name
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
%>

比如我想下
<a href="d.asp?FileName=q.txt">q.txt</a>

这样是对的因为q.txt 和上面的asp是同一级别的路径
但是我想下载1文件夹里的q.txt 就不行了,
<a href="d.asp?FileName=1\q.txt">q.txt</a>  出错
1这个文件夹也是和asp文个同一级别路径

在线等,等

文件名中间有空间也不能下载

<a href="d.asp?FileName=1\q.txt">q.txt</a> 这个好象也行

应该为 <a href="d.asp?FileName=1/q.txt">q.txt</a>

"文件名中间有空间也不能下载"

文件名中间有空格，那你下载的文件是不是文件名确实也有空格呢?

也有是空格的,,比如说
123 456.txt
中间有个空格的.