asp下载文件代码中路径这么写

来源:百度知道 编辑:UC知道 时间:2024/05/29 16:00:24
<%
Dim strFilename,S,Fso,F,intFilelength
strFilename = Server.MapPath(Trim(Request("File")))
Response.Buffer = True
Response.Clear
Set S = Server.CreateObject("ADODB.Stream")
S.Open
S.Type = 1
On Error Resume Next
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
If Not Fso.FileExists(strFilename) Then
Response.Write("<h1>Error:</h1>"&strFilename&"你要下载的文件不存在!<p>")
Response.End
End If

Set F = Fso.GetFile(strFilename)
intFilelength = F.Size
S.LoadFromFile(strFilename)
If Err Then
Response.Write("<h1>Error: </h1>Unknown Error!<p>")
Response.End
End If

Response.AddHeader "Content-Disposition","attachment;filename="&zhuailin/mp3/我的快乐.mp3
Response.AddHeader "Content-Length&

就是这一句:
Response.AddHeader "Content-Disposition","attachment;filename="&zhuailin/mp3/我的快乐.mp3

里面的路径没有写好

Response.AddHeader "Content-Disposition","attachment;filename="&zhuailin/mp3/我的快乐.mp3

这句是不是括号没打好?

Response.AddHeader "Content-Disposition","attachment;filename=" & server.urlencode("zhuailin/mp3/我的快乐.mp3")