sendto.asp

办公系统的公文处理

<!--#include file="conn.asp"-->
<%userall=request.form("userall")
  file_name=session("up_file_name")   '得到附件文件名
  if file_name<>"" then file_path_name="upfile/"&file_name else file_path_name="　" end if
  title=trim(request.form("title"))
  if title="" then response.redirect("send.asp") end if
  text_all=request.form("text_all")
  text_all=replace(text_all,chr(13),"<br>")
  text_all=replace(text_all," ","&nbsp;")
  if text_all="" then text_all="　" end if
  sender=session("user_name")
  
  
  
  
  
  if userall="yes" then       '发给所有人
       str="select 单位 from user where 用户类别<>'超级管理员' and 单位<>'"&sender&"'"
	   set rs=conn.execute(str)
	  revicer=""
	   do while not rs.eof
	       revicer=revicer&rs("单位")&"|"
		   rs.movenext
		   loop
		dd=date
		tt=time
		        rs.close
		        sql="select * from news"
		        rs.Open sql,conn,1,3
		        rs.addnew
			rs("标题")=title
		        rs("内容")=text_all
		        rs("发文日期")=dd
		        rs("发文时间")=tt
		        rs("发文者")=sender
		        rs("接收者")=revicer
		        rs("附件")=file_path_name
			    rs.update
		        id=rs("ID")
	   session("up_file_name")=""
	 
  else      '发给部分人
        '取出部门人
         bumeng_count=session("bumeng_count")
		 b=1
		 do while b<=bumeng_count
		     bumeng_n="bumeng"&cstr(b)
			 bumeng_str=request.form(bumeng_n)
			 str="select 单位 from user where 部门='"&bumeng_str&"' and 用户类别<>'超级管理员' and 单位<>'"&sender&"'"
			 set rs=conn.execute(str)
			 do while not rs.eof
			    revicer=revicer&rs("单位")&"|"
				rs.movenext
				loop
		 b=b+1
		 loop

     '取出指定人
     sele_name=trim(request.form("sele_name"))
	 if sele_name<>"" then
         revicer=revicer&sele_name
		 if right(revicer,1)<>"|" then revicer=revicer&"|" end if
     end if
	 '选定指定人
	 see=request.querystring("see")
	 if see="user_all" then
	     user_all=session("user_all")
		 b=1
		 do while b<user_all
		    se_namen="se_name"&cstr(b)
			se_str=request.form(se_namen)
			if se_str<>"" then
			   revicer=revicer&se_str&"|"
	        end if
			b=b+1
		 loop
	 end if
	 
	 	 dd=date
		 tt=time
		        rs.close
		        sql="select * from news"
		        rs.Open sql,conn,1,3
		        rs.addnew
			rs("标题")=title
		        rs("内容")=text_all
		        rs("发文日期")=dd
		        rs("发文时间")=tt
		        rs("发文者")=sender
		        rs("接收者")=revicer
		        rs("附件")=file_path_name

			rs.update
		        id=rs("ID")
		        session("up_file_name")=""
  end if
rs.Close 



 '创建签收表
       set rs=server.createobject("ADODB.recordset")
	sql="select * from qsnews"
	rs.Open sql,conn,1,3
	mysendto=split(revicer,"|",-1,1)
	
	for each sendtoinf in mysendto
		if trim(sendtoinf)<>"" then
			set rs1=server.createobject("ADODB.recordset") 
			sql1="select * from user  where 单位='"&trim(sendtoinf)&"'"
			rs1.Open sql1,conn,1,3
			rs.addnew
			if not rs1.EOF then  rs("单位")=rs1("单位") 
			rs("用户名")=rs1("用户名")
			rs("密码")=rs1("密码")
			rs("序号")=rs1("序号")
			rs("发文日期")=dd
			rs("签收状态")=0
			rs("reid")=id
			rs.update
			rs1.Close
			set rs1=nothing
			
		end if
	next




 conn.close
 back=request.querystring("back")
 response.redirect(back)  
%>