为什么不能下载

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../ado/adoconn.asp"-->
<%
Public Function dl(f,n)
on error resume next
set s=CreateObject("Adodb.Stream")
S.Mode=3
S.Type=1
S.Open
s.LoadFromFile(f)
if err.number>0 then
response.write err.number & ":" & err.description
else
response.contentType="application/x-gzip"
response.addheader "Content-Disposition:","attachment; filename=" & n
response.binarywrite(s.Read(s.size))
end if
end Function


Public Function FILES_Sel(argLongFILEID)
Dim strSql,cmd
Dim paraArray(1)
Set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = Conn
cmd.CommandType = adCmdText
strSql = "select [FILENAME] ,[FILEPATH], [FILEEXT] from [FILES] where [FILEID]=?"
cmd.CommandText = strSql
cmd.Prepared = True
Set paraArray(0) = cmd.CreateParameter ("FILEID",adInteger, adParamInput, 4, argLongFILEID)
cmd.Parameters.Append(paraArray(0))
set FILES_Sel = cmd.Execute()
End Function

Dim LongFILEID,rs,strFileName,strDFileName,strFileExt
'---- 文件上传的路径
dim outFileFolder '文件夹路径
dim StrConFolder '文件夹对虚拟目录上级目录的后面部分地址
outFileFolder = server.MapPath(".")
StrConFolder = "others\"
outFileFolder = Left(outFileFolder,InStrRev(outFileFolder, "\wwwroot")) '\himygod为所在虚拟目录的主路径,outFileFolder此时的址此是其上级目的路径\
outFileFolder = outFileFolder & StrConFolder

if Request.QueryString("fileid")<>"" then
LongFILEID = Request.QueryString("fileid")
set rs=FILES_Sel(LongFILEID)
strDFileName = Trim(rs(0))
strFileName = Trim(rs(1))
strFileExt = Trim(rs(2))
rs.Close
Conn.Close
set Conn = nothing
strFileName = outFileFolder & strFileName
strDFileName = strDFileName & "." & strFileExt
dl strFileName,strDFileName
end if
%>

我想用这个页面来下载站外的文件,本机上没有问题,但一传到空间上就下载不了
其中上传,删除都没有问题,高手指点一下啊