savehg.asp

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

<!--#include file="check.asp"-->
<!--#include file="connect.asp"-->
<%
dim filebody,filesize
filesize=request.totalbytes
filebody=request.binaryread(filesize)
set stm=server.createobject("adodb.stream")
stm.mode=3
stm.type=1
stm.open
stm.write filebody
if filesize>0 then
set rs=server.createobject("adodb.recordset")
sql="select filedata,filetype from fawen where id="&session("fawenid")
rs.open sql,conn,1,3
rs("filedata").Appendchunk filebody
rs("filetype")="doc"
rs.update
'response.write rs("filedata").actualsize
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
stm.close
set stm=nothing
%>