downloadfile.asp

来自「OFFICE办公自动化」· ASP 代码 · 共 16 行

<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<% 
dbasename=request("dbasename")
'fieldname_filename=request("fieldname_filename")
'fieldname_filecontent=request("fieldname_filecontent")

Set rs=Server.CreateObject("ADODB.recordset")
sql="select fileContent,fileType from " & dbasename & " where id=" & trim(request("id")) 
rs.open sql,oConn,1,1 
Response.ContentType = rs("fileType")
Response.BinaryWrite rs("fileContent").getChunk(7500000) 
rs.close 
set rs=nothing 
set oConn=nothing 
%>