senddate.asp(发送界面)

发给： * 标题: * 内容: 附件: (不能超过100K)

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

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

<!--#INCLUDE FILE="asp/fupload.inc"--&gt

<!--#include file="asp/opendb.asp"--&gt<!--#include file="asp/sqlstr.asp"--&gt<!--#include file="asp/checked.asp"--&gt<!--#include file="asp/bgsub.asp"--&gt'On Error Resume Nextoabusyname=request.cookies("oabusyname")oabusyusername=request.cookies("oabusyusername")oabusyuserdept=request.cookies("oabusyuserdept")oabusyuserlevel=request.cookies("oabusyuserlevel")if oabusyusername="" then response.redirect "default.asp"%>

企业管理系统 call bghead() %>

公文发送

call bgmid() %>

if Request.ServerVariables("REQUEST_METHOD") = "POST" Then

'---------------------------'response.write "开始发送"'---------------------------Dim FieldsUploadSizeLimit=100000Set Fields = GetUpload()dim FieldFor Each Field In Fields.Itemsif Field.name="title" then title=BinaryToString(Field.value)if Field.name="content" then content=BinaryToString(Field.value)if Field.name="sendto" then sendto=BinaryToString(Field.value)if Field.name="file1" thenfilename=field.FileNamefileContentType=field.ContentTypefilevalue=field.valueend ifnext'--------------------------------------'response.write "title=" & title & ""'response.write "content=" & content & ""'response.write "sendto=" & sendto & ""'response.write "filedname=" & filename & ""'response.write "fileContentType=" & fileContentType & ""'----------------------------------------dim mysendtomysendto=split(sendto,"|",-1,1)for each sendtoinf in mysendtouserdeptpoint=InStr(sendtoinf,":")if userdeptpoint>0 thensendtoinflen=len(sendtoinf)recipientusername=right(sendtoinf,sendtoinflen-userdeptpoint)if recipientusername="所有人" thenrecipientusername="所有人"elseusernamepoint=Instr(recipientusername,"(")usernamelen=len(recipientusername)recipientusername=left(recipientusername,usernamelen-1)recipientusername=right(recipientusername,usernamelen-1-usernamepoint)end ifrecipientuserdept=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,3rs.addnew rs("title")=titlers("content")=contentrs("sender")=oabusyusernamers("recipientusername")=recipientusernamers("recipientuserdept")=recipientuserdeptif filename<>"" thenrs("filename")=filenamers("fileContentType")=fileContentTypers("filevalue").appendchunk filevalueend ifrs.update rs.close set rs=nothing set conn=nothing

end if

next

%>

发送完成

end if %> call bgback() %>

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

listsendfile.asp (把数据库里面的文件取出来并下载，如果是文本或图像会直接打开)<!--#include file="asp/opendb.asp"--&gtset conn=opendb("oabusy","conn","accessdsn")Set rs=Server.CreateObject("ADODB.recordset")'request("id")是从上一个文件传过来的值，表示这个文件在数据库里的位置sql="select filevalue,fileContentType from senddate where id=" & trim(request("id")) rs.open sql,conn,1,1 Response.ContentType = rs("fileContentType")Response.BinaryWrite rs("filevalue").getChunk(7500000) rs.close set rs=nothing set conn=nothing %>

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10294527/viewspace-124680/，如需转载，请注明出处，否则将追究法律责任。

<%=items[i].content%>

<%if(items[i].items.items.length) { %> <%}%> <%}%>