Senddate.asp
! - # clude file = "ASP / Checked.asp" -> <% '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"%>
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 & "" .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 = "all" thenrecipientusername = "all" 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 ("