senddate.ASP(发送界面)

发给：*

标题:

*

内容:

附件:

(不能超过100K)

*************************************************************************

senddateindb.ASP(把要发送的文件保存到数据库)

企业管理系统

公文发送

0 then

sendtoinflen=len(sendtoinf)

recipientusername=right(sendtoinf,sendtoinflen-userdeptpoint)

if recipientusername="所有人" then

recipientusername="所有人"

else

usernamepoint=Instr(recipientusername,"(")

usernamelen=len(recipientusername)

recipientusername=left(recipientusername,usernamelen-1)

recipientusername=right(recipientusername,usernamelen-1-usernamepoint)

end if

recipientuserdept=left(sendtoinf,userdeptpoint-1)

set conn=opendb("oabusy","conn","accessdsn")

set rs=server.createobject("ADODB.recordset")

sql = "select * from senddate"

rs.Open sql,conn,1,3

rs.addnew

rs("title")=title

rs("content")=content

rs("sender")=oabusyusername

rs("recipientusername")=recipientusername

rs("recipientuserdept")=recipientuserdept

if filename"" then

rs("filename")=filename

rs("fileContentType")=fileContentType

rs("filevalue").appendchunk filevalue

end if

rs.update

rs.close

set rs=nothing

set conn=nothing

end if

next

%>

发送完成

*****************************************************************

listsendfile.ASP (把数据库里面的文件取出来并下载，如果是文本或图像会直接打开)