Response.AddHeader("Content-disposition", "attachment; filename=" + 文件名);
Response.Write(数据);
Response.Write(数据);
解决方案 »
- 在mysql中怎么让已经插入的几个字段更新
- Grid++Report 5.0做报表,发票的困惑
- 没办法,问题没解决还得发贴,谢谢了先,我的问题是“GridView导出Excel没有数据的区域为空白,是怎么回事啊,怎么解决,重谢”
- 急问:“INSERT INTO 语句的语法错误。”请求帮忙分析原因
- 又一算法问题
- Windows 2003 几张盘?
- 各位大虾,快HelpMe!
- 紧急求救:事务死锁问题。
- 我想实现一个显示新闻的用户控件加上缓存,在后台变动新闻的时候重新缓存,应该怎么实现,麻烦给示例`
- 关于checkboxlist的动态绑定及取值??
- 在ASPNET中实现打印的问题。来者有分!
- 怎样把查询数据导入到Excel显示出来?急
<%@import namespace="System.Data"%>
<%@import namespace="System.Data.SqlClient"%>
<script language="C#" runat="server">
public void Page_Load(Object o, EventArgs e)
{
int ImgID = Convert.ToInt32(Request.Params["id"]);
string connStr = ConfigurationSettings.AppSettings["ConnectionString"];
SqlConnection conn = new SqlConnection(connStr);
string sql = "select * from t_imgs where id = @ImgID";
SqlCommand cmd = new SqlCommand(sql, conn);
cmd.Parameters.Add("@ImgID", SqlDbType.Int).Value = ImgID;
conn.Open();
SqlDataReader read = cmd.ExecuteReader();
read.Read();
Response.ContentType = (string)read["type"];
string strFileName = System.Web.HttpUtility.UrlEncode( System.Text.Encoding.UTF8.GetBytes((string)read["imgName"]);
Response.AppendHeader("Content-Disposition", "attachment; filename=" + strFileName);
Response.ContentType = "application/octet-stream";
Response.BinaryWrite((byte[])read["imgData"], 0, (int)read["imgSize"]);
Response.End();
conn.Close();
}
</script>
用aspx读取文件输出它
string strFile = "e:\\test.doc";
FileStream fs = new FileStream(strFile, FileMode.Open);
byte[] bytes = new byte[(int)fs.Length];
fs.Read(bytes, 0, bytes.Length);
fs.Close();
Response.ContentType = "application/octet-stream";
Response.AddHeader("Content-Disposition", "attachment;filename=" & strFile);
Response.BinaryWrite(bytes);
Response.End();
SqlDa.SelectCommand.Connection = Conn
SqlDa.Fill(DsContent1, "ic") Dim dr As SqlClient.SqlDataReader = SqlDa.SelectCommand.ExecuteReader
dr.Read() '数据为空退出
If dr.IsDBNull(9) Then
Response.Write("<script language='JavaScript'>alert('没有文件信息');</script>")
Response.Write("<script language='JavaScript'>window.close();</script>")
Exit Sub
End If
'读取数据
Dim TrueSize = dr.GetBytes(fileDataCol, 0, Nothing, 0, Integer.MaxValue)
Dim fileContent(TrueSize) As Byte
dr.GetBytes(fileDataCol, 0, fileContent, 0, TrueSize) '将变量设置为实际读取的长度
Response.ContentType = DsContent1.Tables("ic").Rows(0).Item("filetype")
Response.AddHeader("Content-Disposition", "attachment; filename=" + DsContent1.Tables("ic").Rows(0).Item("filename"))
Me.Response.Clear()
Dim fs As System.IO.Stream = Me.Response.OutputStream
fs.Write(fileContent, 0, fileContent.Length)
fs.Close()
Response.End()