ASP中从数据库读取二进制文件数据代码
2004-09-29 16:29
597 查看
<%
driver_name1="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=D:/数据库/TREE.MDB" '根目录下数据库打开语句
dim search,rs,j
search="select * from Files where ID=" & request.querystring("ID")
set my_conn=server.CreateObject ("adodb.connection")
my_conn.open driver_name1
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open search,my_conn,1,3
if rs.bof or rs.eof then
response.write "错误:找不到该文件"
response.end
end if
'设置文件的大小及MIME类型
Function SetForDisplay(field, contentType)
contentType = LCase(trim(contentType))
nFieldSize = field.ActualSize
bytes = field.GetChunk(nFieldSize)
Session("Bytes") = bytes
Session("Type") = contentType
End Function
SetForDisplay RS("File"),rs("FileType")
'Response.AddHeader "Content-Disposition", "attachment; filename=" & rs("FileName")
response.contentType = Session("Type")
response.BinaryWrite Session("Bytes")
Session("Type") = ""
Session("Bytes") = ""
set rs=nothing
my_conn.close
set my_conn=nothing
%>
driver_name1="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=D:/数据库/TREE.MDB" '根目录下数据库打开语句
dim search,rs,j
search="select * from Files where ID=" & request.querystring("ID")
set my_conn=server.CreateObject ("adodb.connection")
my_conn.open driver_name1
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open search,my_conn,1,3
if rs.bof or rs.eof then
response.write "错误:找不到该文件"
response.end
end if
'设置文件的大小及MIME类型
Function SetForDisplay(field, contentType)
contentType = LCase(trim(contentType))
nFieldSize = field.ActualSize
bytes = field.GetChunk(nFieldSize)
Session("Bytes") = bytes
Session("Type") = contentType
End Function
SetForDisplay RS("File"),rs("FileType")
'Response.AddHeader "Content-Disposition", "attachment; filename=" & rs("FileName")
response.contentType = Session("Type")
response.BinaryWrite Session("Bytes")
Session("Type") = ""
Session("Bytes") = ""
set rs=nothing
my_conn.close
set my_conn=nothing
%>
相关文章推荐
- 信息管理代码分析<二>读取二进制文件数据
- asp.net中读取数据库数据代码
- asp.net(c#)如何读取上传过程中的.txt文件中的数据,并将其写入数据库的
- Asp.Net上传文件到Access数据中,并从数据库中读取文件并保存
- asp.net 从数据库中读取而二进制数据图片,展示在Image中
- asp.net中读取数据库数据代码
- asp.net从数据库里读取二进制文件
- Asp.net 2.0 GridView数据导出Excel文件(示例代码下载)
- ASP.NET中上传并读取Excel文件数据
- Asp.net 2.0 GridView数据导出Excel文件(示例代码下载)
- ASP.NET 实践:从 Web.config 文件中读取数据库连接串
- 自己编写的一个程序:读取XML格式的日志文件,并以一定的数据写入数据库中
- Asp.net 2.0 GridView数据导出Excel文件(示例代码下载)
- 生成/读取(反向更新数据库) Excel文件(示例代码下载)
- ASP.NET中上传并读取Excel文件数据
- ASP.NET 2.0 读取配置文件[INI](示例代码下载)
- ASP中文本文件与数据库文件的数据交换(FSO)
- [ASP.net]从数据库中读取数据自动生成XML
- Asp.net 2.0 GridView数据导出Excel文件(示例代码下载)
- ASP.NET中上传并读取Excel文件数据