试试HttpContext.Current.Response.Charset ="";
HttpContext.Current.Response.ContentEncoding = System.Text.Encoding.UTF8 ; HttpContext.Current.Response.AppendHeader("Content-Disposition","attachment;filename=result.xls");
//
// HttpContext.Current.Response.ContentEncoding =System.Text.Encoding.GetEncoding("GB2312");
HttpContext.Current.Response.ContentType ="application/ms-excel";//image/JPEG;text/HTML;image/GIF;vnd.ms-excel/msword
//关闭控件的视图状态
this.dg_save.Page.EnableViewState =false;
//初始化writer
System.IO.StringWriter tw = new System.IO.StringWriter() ;
System.Web.UI.HtmlTextWriter hw = new System.Web.UI.HtmlTextWriter (tw);
this.dg_save.RenderControl(hw);
//输出
HttpContext.Current.Response.Write(tw.ToString());
HttpContext.Current.Response.End();
HttpContext.Current.Response.ContentEncoding = System.Text.Encoding.UTF8 ; HttpContext.Current.Response.AppendHeader("Content-Disposition","attachment;filename=result.xls");
//
// HttpContext.Current.Response.ContentEncoding =System.Text.Encoding.GetEncoding("GB2312");
HttpContext.Current.Response.ContentType ="application/ms-excel";//image/JPEG;text/HTML;image/GIF;vnd.ms-excel/msword
//关闭控件的视图状态
this.dg_save.Page.EnableViewState =false;
//初始化writer
System.IO.StringWriter tw = new System.IO.StringWriter() ;
System.Web.UI.HtmlTextWriter hw = new System.Web.UI.HtmlTextWriter (tw);
this.dg_save.RenderControl(hw);
//输出
HttpContext.Current.Response.Write(tw.ToString());
HttpContext.Current.Response.End();
window.openner=null
</script>
<%
Dim Stream
Dim Contents
Dim FileName
Dim FileExt
Const adTypeBinary = 1
FileName = Request.QueryString("FileName")
content= Request.QueryString("content")
Set fso=CreateObject("Scripting.FileSystemObject")
Set fsw=fso.CreateTextFile("d:\天天气象\qxfu\product\temp\"&filename&".txt")
fsw.writeline(content)
set fsw=nothing
set fso=nothing
if FileName = "" Then
Response.Write "无效文件名."
Response.End
End if
' 下面是不希望下载的文件
'FileExt = Mid(FileName, InStrRev(FileName, ".") + 1)
'Select Case UCase(FileExt)
' Case "ASP", "ASA", "ASPX", "ASAX", "MDB"
' Response.Write "受保护文件,不能下载."
'Response.End
'End Select
' 下载这个文件
Response.Clear
Response.ContentType = "application/octet-stream"
Response.AddHeader "content-disposition", "attachment; filename=" & FileName&".txt"
Set Stream = server.CreateObject("ADODB.Stream")
Stream.Type = adTypeBinary
Stream.Open
Stream.LoadFromFile Server.MapPath(FileName&".txt")
While Not Stream.EOS
Response.BinaryWrite Stream.Read(1024 * 64)
Wend
Stream.Close
Set Stream = Nothing
Response.Flush
%>
HttpContext.Current.Response.Charset ="";
HttpContext.Current.Response.ContentEncoding = System.Text.Encoding.UTF8 ;HttpContext.Current.Response.AppendHeader("Content-Disposition","attachment;filename=result.txt");
HttpContext.Current.Response.ContentType ="Text/HTML";//image/JPEG;text/HTML;image/GIF;vnd.ms-excel/msword//输出
HttpContext.Current.Response.Write(str);
HttpContext.Current.Response.End();
把txt里的内容打开了,并没有弹出提示窗口
{
System.IO.FileInfo file = new System.IO.FileInfo(Server.MapPath("../uploads/BaseDocument/") +a.txt);
Response.ContentType="application/octet-stream";
Response.AppendHeader("Connection","keep-alive");
Response.AppendHeader("Content-Disposition", "attachment; filename=" + System.Web.HttpUtility.UrlEncode(file.Name, System.Text.Encoding.UTF8));
Response.WriteFile(file.FullName);
Response.Flush();
Response.End();
}
原因是我的机上装了dudu 下载加速器,,,气死了.呵呵
结帐了