asp文件下载代码（asp下载源码）

今天给各位分享asp文件下载代码的知识，其中也会对asp下载源码进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

• 1、asp 下载代码问题
• 2、asp 下载文件代码
• 3、关于文件夹下载文件的asp源代码解释
• 4、ASP写的文件下载代码
• 5、ASP如何写文件下载代码

asp 下载代码问题

Set Stream = server.CreateObject("ADODB.Stream")

Stream.Type = adTypeBinary

Stream.Open

Stream.LoadFromFile Server.MapPath(""downurl"")

While Not Stream.EOS

Response.BinaryWrite Stream.Read(1024 * 64)

Wend

Stream.Close

Set Stream = Nothing

去掉以上代码

asp 下载文件代码

.............一般都使用相对路径和根目录两种~~~~你这个写法别的机子访问不了的~

关于文件夹下载文件的asp源代码解释

downfilename=request("filename")

path = Server.MapPath(downfilename)

关键代码

就是接受到 filename 那么就 出现 下载对话框 并不是保存到服务器上

Server.MapPath(downfilename) 必须是虚拟路径，

比如 \xxx\c.txt 不可以是 D:\xxx\c.txt

download.asp?filename=download.asp 就是下载自己

假如目录下有 a.txt 访问 download.asp?filename=a.txt那就是下载A.TXT

改成 download.asp?filename=/download/jkb.txt

ASP写的文件下载代码

Function downloadFile(strFile)

strFilename = server.MapPath(strFile)

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("h1Error:/h1 文件不存在p")

Response.End

end if

Set f = fso.GetFile(strFilename)

intFilelength = f.size

s.LoadFromFile(strFilename)

if err then

Response.Write("h1Error: /h1" err.Description "p")

Response.End

end if

Response.AddHeader "Content-Disposition", "attachment; filename=" f.name

Response.AddHeader "Content-Length", intFilelength

Response.CharSet = "UTF-8"

Response.ContentType = "application/octet-stream"

Response.BinaryWrite s.Read

Response.Flush

s.Close

Set s = Nothing

End Function

看这个函数能帮到你吗

ASP如何写文件下载代码

直接发送下载的代码,

Set objStream = Server.CreateObject("ADODB.Stream")

objStream.Open

objStream.Type = 1

objStream.LoadFromFile filename

Select Case lcase(Right(filename, 4))

Case ".asf"

ContentType = "video/x-ms-asf"

Case ".avi"

ContentType = "video/avi"

Case ".doc"

ContentType = "application/msword"

Case ".xls"

ContentType = "application/vnd.ms-excel"

Case ".gif"

ContentType = "image/gif"

Case ".jpg", "jpeg"

ContentType = "image/jpeg"

Case ".wav"

ContentType = "audio/wav"

Case ".mp3"

ContentType = "audio/mpeg3"

Case ".mpg", "mpeg"

ContentType = "video/mpeg"

Case ".rtf"

ContentType = "application/rtf"

Case ".htm", "html"

ContentType = "text/html"

Case ".txt"

ContentType = "text/plain"

Case Else

ContentType = "application/octet-stream"

End Select

Response.AddHeader "Content-Disposition", "attachment; filename=" shortName

Response.AddHeader "Content-Length", fileSize

Response.Charset = "UTF-8"

Response.ContentType = ContentType

Response.BinaryWrite objStream.Read

Response.Flush

response.Clear()

objStream.Close

Set objStream = Nothing

asp文件下载代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于asp下载源码、asp文件下载代码的信息别忘了在本站进行查找喔。