download.aspx

来自「《ASP.NET C#程序设计案例教程》」· ASPX 代码 · 共 23 行

<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script language="VB" runat="server">
Sub Page_Load(Sender As Object, E As EventArgs)
	Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("temp.mdb")) 
	'获取传过来的id，建立SQL语句
	Dim strSql As String="select * from uploadfile Where id=" & Request.QueryString("id")
	Dim cmd As New OleDbCommand(strSql,conn)					'建立Command对象
	conn.Open()                                            
	Dim dr As OleDbDataReader = cmd.ExecuteReader()				'建立DataReader对象
	dr.Read()													'读取当前记录
	'下面将文件输出到客户端，首先指明ContentType
	Response.ContentType = dr.Item("fileContentType")
	'告诉浏览器文件名称
	Response.AddHeader("Content-Disposition","attachment;filename=" & dr.Item("filename"))
	'告诉浏览器文件大小
	Response.AddHeader("Content-Length", CStr(dr.Item("filesize")))
	'输出二进制文件
	Response.BinaryWrite(dr.Item("filebody"))
	conn.Close()                                              
End Sub
</script>