首页 > 网站 > asp下载文件代码

asp下载文件代码

2009年10月18日 发表评论 阅读评论

      asp下载文件的代码,目的让用户点击时直接显示下载。当前有些虚拟空间主机支持asp,但是不支持下载文件,可以使用下面的代码达到下载的效果。

把下面的代码保存为 download.asp,下载的文件名以 filename为参数。

 

  1. <%
  2. Function downloadFile(strFile)
  3. strFilename = server.MapPath(strFile)
  4. Response.Buffer = True
  5. Response.Clear
  6. Set s = Server.CreateObject("ADODB.Stream")
  7. s.Open
  8. s.Type = 1
  9. on error resume next
  10. Set fso = Server.CreateObject("Scripting.FileSystemObject")
  11. if not fso.FileExists(strFilename) then
  12. Response.Write("<h1>Error:</h1> 文件不存在<p>")
  13. Response.End
  14. end if
  15. Set f = fso.GetFile(strFilename)
  16. intFilelength = f.size
  17. s.LoadFromFile(strFilename)
  18. if err then
  19. Response.Write("<h1>Error: </h1>" & err.Description & "<p>")
  20. Response.End
  21. end if
  22. Response.AddHeader "Content-Disposition""attachment; filename=" &f.name
  23. Response.AddHeader "Content-Length", intFilelength
  24. Response.CharSet = "UTF-8"
  25. Response.ContentType = "application/octet-stream"
  26. Response.BinaryWrite s.Read
  27. Response.Flush
  28. s.Close
  29. Set s = Nothing
  30. End Function
  31.  
  32. set filename =request.querystring("filename")
  33. downloadFile("download/" & filename)
  34.  
  35. //downloadFile("download/sms.rar")
  36.  
  37. %>

 

 

php下载文件代码

jsp下载文件代码-解决中文文件名的乱码办法

分类: 网站 标签: , 2,035 次阅读
原文链接:http://www.wenhq.com/article/view_384.html
欢迎转载,请注明出处:亲亲宝宝
  1. 本文目前尚无任何评论.
  1. 本文目前尚无任何 trackbacks 和 pingbacks.