mailfj.asp

网络办公系统

<!--#include file="check.asp"-->
<!--#include file="connect.asp"-->
<%
writetime=CDate(now())
ipaddress=request.servervariables("remote_addr")
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 * from mailfj"
rs.open sql,conn,1,3
rs.addnew
rs("mailid")=session.SessionID
rs("savedate")=writetime
rs("ipaddress")=ipaddress
rs("filesize")=filesize
rs("uid")=trim(session("uid"))
rs("filedata").Appendchunk filebody
rs.update
'session("shouwenid")=rs("id")
'response.write rs("filedata").actualsize
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
stm.close
set stm=nothing
%>