使用经典的asp下载文件

时间:2017-08-07 18:24:52

标签: vbscript asp-classic

我按照以下链接但我无法下载文件:

StackOverflow Question on same Topic from where I used the code

这是我的download.asp代码:

<%
  Dim objConn, strFile
  Dim intCampaignRecipientID

  strFile = Request.QueryString("file")

  If strFile <> "" Then

Response.Buffer = False
Dim objStream
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 'adTypeBinary
objStream.Open
'FilePath=server.MapPath("some_folder/DOWNLOAD/")
'Response.Write(Server.MapPath("some_folder/download/") & "\" & strFile)
objStream.LoadFromFile(Server.MapPath("some_folder/download/") & "\" & 
strFile)
Response.ContentType = "application/x-unknown"
Response.Addheader "Content-Disposition", "attachment; filename=" & strFile
Response.BinaryWrite objStream.Read
objStream.Close
Set objStream = Nothing

 End If
 %>

我收到错误无效响应...页面无法访问错误。

下载文件夹与wwwroot文件夹处于同一级别,因此文件夹结构为:

wwwroot some_folder / download

我在wwwroot / download.asp中有我的下载文件夹,这就是我使用server.mappath的原因。我甚至尝试过../some_folder/download但同样的错误。

有人可以帮助我解决这个问题。

先谢谢。

0 个答案:

没有答案