swfawen.asp

来自「功能非常强大的一款办公自动化软件原代码,其中的文档签收功能特别实用.不相信下下来」· ASP 代码 · 共 30 行

<!--#include file="check.asp"-->
<!--#include file="connect.asp"-->
<%
on error resume next
dim filesize
dim filebody
set rs=server.createobject("adodb.recordset")
Set objStream = Server.CreateObject("ADODB.Stream")
sql="select filedata,filetype,documentname from shouwen where id='"&session("shouwenid")&"'"
rs.open sql,conn,1,1
filesize=rs("filedata").actualsize
filebody=rs("filedata").getchunk(filesize)
fujianname=rs("documentname")
if err.number>0 then
response.redirect "error.asp"
response.end
end if
    Response.Clear
    Response.AddHeader "Content-Disposition","attachment;filename="&fujianname
    Response.AddHeader "Content-Length",filesize
    Response.CharSet = "UTF-8"
    Response.ContentType = "application/x-msdownload"
    Response.BinaryWrite filebody
   	rs.Close
Set rs = Nothing
conn.close
set conn=nothing
	%>