如何获取当前页面内容并赋值给pageContent变量以写入文件？

• 开启响应缓冲
  在页面最顶部添加代码，确保所有输出都暂存到缓冲区，不直接发送给客户端：

  Response.Buffer = True
  

• 获取页面完整响应内容
  等页面所有动态内容、静态内容都输出完成后，通过Response.Content获取缓冲区里的全部页面内容，赋值给pageContent：

  pageContent = Response.Content
  

• 完整代码示例（结合你的文件操作逻辑）

  ' 开启响应缓冲，必须放在页面最开头
  Response.Buffer = True
  
  ' --------------------------
  ' 这里是页面的所有输出内容（动态生成、静态HTML等）
  ' 比如：
  Response.Write "<table><tr><td>测试数据</td></tr></table>"
  ' ... 其他业务逻辑输出 ...
  ' --------------------------
  
  ' 文件操作部分
  set fso=server.CreateObject("Scripting.FileSystemObject")
  fic= session("DIRECTORY_BASE") & "/data/download/temp.xls"
  If fso.FileExists(fic) Then fso.deletefile(fic)
  Set objFile = fso.OpenTextFile(fic, 2, True) 
  ' 赋值页面内容
  pageContent = Response.Content
  objFile.Write pageContent
  ' 释放资源
  objFile.Close
  Set objFile = Nothing
  Set fso = Nothing
  
  ' 可选：如果需要将页面内容同时发送给客户端，取消注释以下代码
  ' Response.Flush
  ' Response.End
  

注意事项 #

• Response.Buffer = True必须放在页面最开始的位置，否则部分内容可能已发送到客户端，无法被完整捕获。
• 若页面包含二进制内容（如图片），需改用Response.BinaryRead处理，但针对HTML格式的xls文件，Response.Content足够适用。
• 操作完文件后务必关闭并释放对象，避免服务器资源泄漏。

内容的提问来源于stack exchange，提问作者Berrouayel Farid