点击页面按钮，弹出可以选择“下载”或“打开”对话框？

Question

Dim Path As String = Server.MapPath(Request.QueryString("path")) '你存放文件的目錄
        Dim myStream As Stream = File.Open(Path, FileMode.Open)
        Dim mybyte(myStream.Length) As Byte
        myStream.Read(mybyte, 0, CType(myStream.Length, Integer))
        myStream.Close()
        Response.Buffer = True
        Response.Clear()
        Response.AddHeader("Content-Disposition", "attachment;filename=" & Mid(Path, Path.LastIndexOf("\") + 2))
        Response.ContentType = "application/vnd.ms-excel"   '改成你要的類型
        Response.BinaryWrite(mybyte)
        Response.Flush()
        Response.End()

Answer 1

string scFileName="aaa.txt";
string filePath="c:\temp"+"/"+sFileName;
Response.AppendHeader("Content-Disposition", "attachment; filename=" + HttpUtility.UrlEncode(sFileName,System.Text.Encoding.UTF8));
Response.WriteFile(filePath);
Response.End();

Answer 2

Hu Hu , Thanks.但还是有问题！ 还是要点两次打开？   如果在你的机器上只打开一次的话，请留言，我们讨论讨论。