pso.asp

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

<!--#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 psodata,id from fawen where id="&session("fawenid")
rs.open sql,conn,1,3
rs("psodata").Appendchunk filebody
rs.update
'response.write rs("filedata").actualsize
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
stm.close
set stm=nothing
%>