Asp无组件下载源代码

最新推荐文章于 2023-03-19 09:46:30 发布

cmoremore

最新推荐文章于 2023-03-19 09:46:30 发布

阅读量1.7k

点赞数

CC 4.0 BY-SA版权

分类专栏： Asp 文章标签： asp

本文链接：https://blog.youkuaiyun.com/cmoremore/article/details/276419

Asp 专栏收录该内容

15 篇文章

订阅专栏

博客给出一段ASP代码用于文件下载，但使用该代码下载会弹出网页且无法自动关闭。解决办法是设置一个高度为0的frame，使弹出网页不显示。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Response.Buffer = True
  Set s = Server.CreateObject("ADODB.Stream")
  s.Open
  s.Type = 1
  Set fso = Server.CreateObject("Scripting.FileSystemObject")
  if fso.FileExists(strFilename) then
   Set f = fso.GetFile(strFilename)
   intFilelength = f.size
   s.LoadFromFile(strFilename)
   Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name
   Response.AddHeader "Content-Length", intFilelength
   Response.ContentType = "application/octet-stream"
   Response.Charset = "UTF-8"
   Response.BinaryWrite s.Read
   Response.Flush
   s.Close(strFilename)
   s.Close
   Set s = Nothing
用这段代码下载会弹出一个网页，而且不能自动关闭，解决的办法就是设置一个frame，让这个frame的高度为0，那样那个网页就显示不出来了