downfile.asp

企业办公自动化管理系统 asp+sql server 2005

<!--#include file="../include/opendb.asp"-->
<% 
set conn=opendb()
Set rs=Server.CreateObject("ADODB.recordset")
sql="select fileContentType,filename,filevalue from a_liuchengbeifeng where id=" & trim(request("id")) 
rs.open sql,conn,1,1 
	'清空缓存
	Response.Clear()
	'设置文件格式
	Response.AddHeader "Content-Type",rs("fileContentType")
	'设置文件名，不加attachment就不会保存，只会将一些文件内容显示在页面中
	Response.AddHeader "Content-Disposition","attachment;filename="&rs("filename")
	'输出文件内容
	Response.BinaryWrite rs("filevalue").getChunk(7500000) 
	'结束
	Response.End()
rs.close 
set rs=nothing 
set conn=nothing 
%>