首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

下载文件的代码

Posted on 2005-05-02 19:34  delphi  阅读(345)  评论(0)    收藏  举报
Response.Clear() 
Response.AddHeader("Content-Disposition", "attachment; filename=" & FileName) 
Response.AddHeader("Content-Lenght", Lenght) 
Response.ContentType = "application/octet-stream" 
Response.WriteFile(FileName) 
Response.End