能否在页面上设置一个按钮，点击弹出一个对话框，保存我指定的一个文件？

Question

<%
Response.AddHeader "Content-Disposition", "filename=abc.xsl")
Response.ContentType="application/octet-stream"
Response.BinaryWrite streamReadExcel '用ado.stream 把excel文件读成二进制保存在这个变量里
%>

Answer 1

直接把这串代码 加进去吗？
没有用，提示如下：
--------------------
错误类型：
Response 对象, ASP 0106 (0x80020005)
遇到未处理的数据类型。
----------------------------------

Answer 2

用ado.stream 把excel文件读成二进制保存在这个变量里

Answer 3

“用ado.stream 把excel文件读成二进制保存在这个变量里”？
请问这个怎么来实现呢？
我不懂啊！还请指点！

Answer 4

Dim objAdoStream 
        Set objAdoStream = Server.CreateObject("ADODB.Stream")
objAdoStream.Open ' Set as binary
objAdoStream.Type = 1 ' load in the file
objAdoStream.LoadFromFile(sFilePath) 'xsl物理路径         streamReadExcel = objAdoStream.Read         objAdoStream.Close
Set objAdoStream = Nothing

Answer 5

按钮事件中
<%
call WriteToTextFile(文件url,文件内容,"UTF-8")
Response.Redirect 文件url
%>
Sub WriteToTextFile (FileUrl,byval Str,CharSet)        
    set stm=server.CreateObject("adodb.stream")
    stm.Type=2 '以本模式读取
    stm.mode=3
    stm.charset=CharSet
    stm.open
    stm.WriteText str
    stm.SaveToFile server.MapPath(FileUrl),2    
    stm.flush
    stm.Close
    set stm=nothing
end Sub