Asp无组件下载源代码

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，那样那个网页就显示不出来了