asp下载文件(asp下载文件夹方案)
后缀为.asp的下载文件是什么文件阿?
是asp网页文件
只有当空间不支持asp解析时
点击网页才会直接下载后缀为.asp的网页文件
也就是说只有空间不支持asp或空间asp功能失效时
才会出现直接下载后缀为.asp的网页文件
ASP 如何实现文件下载
你把要下载的文件名传到下载页面,用request("fileNameField")获取文件名
下面这地方改一下
iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" _
";Data Source=" server.mappath(request("fileNameField"))
点击下载的地方用a href='下载页面路径?fileNameField=要下载的文件名'下载文件/a
这个
如何用ASP实现文件下载?
调用
response.Write("a href=down.asp?filename="UpLoadPathls_array(i+1)""ls_array
(i)"/td/tr")
down.asp文件内容如下:
%
Const FilePath = "UploadFile/" '文件存放路径
From_url = Cstr(Request.ServerVariables("HTTP_REFERER"))
Serv_url = Cstr(Request.ServerVariables("SERVER_NAME"))
Function GetFileName(longname)'/folder1/folder2/file.asp=file.asp
while instr(longname,"/")
longname = right(longname,len(longname)-1)
wend
GetFileName = longname
End Function
Dim Stream
Dim Contents
Dim FileName
Dim TrueFileName
Dim FileExt
Const adTypeBinary = 1
FileName = Request.QueryString("FileName")
if FileName = "" Then
Response.Write "无效文件名!"
Response.End
End if
FileExt = Mid(FileName, InStrRev(FileName, ".") + 1)
Response.Clear
if lcase(right(FileName,3))="gif" or lcase(right(FileName,3))="jpg" or lcase(right(FileName,3))="png" then
Response.ContentType = "image/*" '对图像文件不出现下载对话框
else
Response.ContentType = "application/ms-download"
end if
Response.AddHeader "content-disposition", "attachment; filename=" GetFileName(Request.QueryString("FileName"))
Set Stream = server.CreateObject("ADODB.Stream")
Stream.Type = adTypeBinary
Stream.Open
TrueFileName= FilePath FileName
Response.Write TrueFileName
Response.End
Stream.LoadFromFile Server.MapPath(TrueFileName)
While Not Stream.EOS
Response.BinaryWrite Stream.Read(1024 * 64)
Wend
Stream.Close
Set Stream = Nothing
Response.Flush
Response.End
%