<% if Request.ServerVariables("REQUEST_METHOD") = "POST" Then '--------------------------- 'response.write "開始發(fā)送<br>" '--------------------------- Dim Fields UploadSizeLimit=100000 Set Fields = GetUpload() dim Field For Each Field In Fields.Items if 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" then filename=field.FileName fileContentType=field.ContentType filevalue=field.value end if next '-------------------------------------- 'response.write "title=" & title & "<br>" 'response.write "content=" & content & "<br>" 'response.write "sendto=" & sendto & "<br>" 'response.write "filedname=" & filename & "<br>" 'response.write "fileContentType=" & fileContentType & "<br>" '---------------------------------------- dim mysendto mysendto=split(sendto,"|",-1,1) for each sendtoinf in mysendto userdeptpoint=InStr(sendtoinf,":") if userdeptpoint>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
%> <br><br> <center>發(fā)送完成</center> <% end if %> <% call bgback() %> </body> </html>
***************************************************************** listsendfile.asp (把數(shù)據(jù)庫里面的文件取出來并下載，如果是文本或圖像會直接打開) <!--#include file="asp/opendb.asp"--> <% set conn=opendb("oabusy","conn","accessdsn") Set rs=Server.CreateObject("ADODB.recordset") 'request("id")是從上一個(gè)文件傳過來的值，表示這個(gè)文件在數(shù)據(jù)庫里的位置 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 %>
