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

[qiaojiannan]

我希望用户可以选择打开或下载一个HTML或TXT文件，我该怎么做。

各位帮帮忙。

[qiaojiannan]

怎么看不见？

[orcale]

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()

[qiaojiannan]

谢谢，很标准的写法。

但我每次都要点两次打开，不知为什么？

[ddangerous169]

lf

[qiaojiannan]

？

[asam2183]

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();

[qiaojiannan]

Hu Hu , Thanks.

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

[qiaojiannan]

Waiting ...

[qiaojiannan]

搞定，多谢各位了。 晚上回来结贴。