letteradd.asp

目前人力资源管理系统的发展已经相对成熟

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file=DataBase/conn.asp-->
<!--#include file=yan.asp-->
<!--#include file=purview.asp-->
<%
call gonghanshenqing

'部门
if request("post")<>"" then
if request("title")="" then
response.Write("<script language=javascript>alert('公函标题不能为空');location='javascript:history.go(-1)'</script>")
response.End()
end if
if request("number")="" then
response.Write("<script language=javascript>alert('公函编号不能为空');location='javascript:history.go(-1)'</script>")
response.End()
end if
if request("content")="" then
response.Write("<script language=javascript>alert('公函内容不能为空');location='javascript:history.go(-1)'</script>")
response.End()
end if
select case request("duixiang")
case "部门"
if request("doid") <> "" then		
'发送到发件箱
set rsm2=server.CreateObject("adodb.recordset")
sqlm2="select * from tb_Letter_f"
rsm2.open sqlm2,conn,1,3
rsm2.addnew
rsm2("title")=request("title")
rsm2("number")=request("number")
rsm2("content")=request("content")
rsm2("point")=request("doid")
rsm2("duixiang")=request("duixiang")
rsm2("name")=session("admin_name")
rsm2("time")=now()
rsm2.update
rsm2.close
           doid=request("doid")
			set rsb=server.CreateObject("adodb.recordset")
			sqlb="Select * from tb_dept where id="&doid
			rsb.Open sqlb,conn,1,3
				if not rsb.EOF then
					bup = rsb("up")							

					set rsd=server.CreateObject("adodb.recordset")	
					sqld="Select * from tb_dept"
					rsd.Open sqld,conn,1,3
						do while not rsd.EOF
							dup = rsd("up")
							delid =rsd("id")			
							if InStr(bup,",") < 1 then
								del_name=split(dup,",")
								if del_name(0) = bup then
							
								'//发送信息到部门下边的员工
									set rsf=Server.CreateObject("ADODB.RecordSet")
									sqlf= "select * from tb_Employee where suoshu="&delid
									rsf.Open sqlf,conn,1,3    
									do while not rsf.EOF
									'发送到收件箱
										set rsm=server.CreateObject("adodb.recordset")
										sqlm="select * from tb_Letter_s"
										rsm.open sqlm,conn,1,3
										rsm.addnew
										rsm("title")=request("title")
										rsm("number")=request("number")
										rsm("content")=request("content")
										rsm("point")=rsf("id")
										rsm("duixiang")=request("duixiang")
										rsm("name")=session("admin_name")
										rsm("time")=now()
										rsm.update
										rsm.close
										
										rsf.MoveNext
       								loop
									rsf.Close
									set rsf = nothing 
								end if
							else
								if InStr(dup,bup) > 0 then
									
									'// 发送信息到部门下边的员工
									sqlg= "select * from tb_Employee where suoshu="&delid
									set rsg=Server.CreateObject("ADODB.RecordSet")
									rsg.Open sqlg,conn,1,3
									do while not rsg.EOF
										'发送到收件箱
										set rsm1=server.CreateObject("adodb.recordset")
										sqlm1="select * from tb_Letter_s"
										rsm1.open sqlm1,conn,1,3
										rsm1.addnew
										rsm1("title")=request("title")
										rsm1("number")=request("number")
										rsm1("content")=request("content")
										rsm1("point")=rsg("id")
										rsm1("duixiang")=request("duixiang")
										rsm1("name")=session("admin_name")
										rsm1("time")=now()
										rsm1.update
										rsm1.close
										
										rsg.MoveNext
       								loop
									rsg.Close
									set rsg = nothing
								end if
							end if
          					rsd.MoveNext
       					loop
						
					rsd.close
					set rsd=nothing
					response.Write("<script language=javascript>alert('发送成功')</script>")
				else
					response.write "<script language=javascript>"
					response.write "alert('你要发送的部门不存在或者已经被删除，请重新操作！');"
					response.write "</script>"
				end if
end if
case "个人"
set rsa=server.CreateObject("adodb.recordset")
sqla="select * from tb_Letter_s"
rsa.open sqla,conn,1,3
rsa.addnew
rsa("title")=request("title")
rsa("number")=request("number")
rsa("content")=request("content")
rsa("point")=request("geren")
rsa("duixiang")=request("duixiang")
rsa("name")=session("admin_name")
rsa("time")=now()
rsa.update
rsa.close
set rsa1=server.CreateObject("adodb.recordset")
sqla1="select * from tb_Letter_f"
rsa1.open sqla1,conn,1,3
rsa1.addnew
rsa1("title")=request("title")
rsa1("number")=request("number")
rsa1("content")=request("content")
rsa1("point")=request("geren")
rsa1("duixiang")=request("duixiang")
rsa1("name")=session("admin_name")
rsa1("time")=now()
rsa1.update
rsa1.close
response.Write("<script language=javascript>alert('发送成功')</script>")
end select 
end if
'培训部门
set rsd=server.CreateObject("adodb.recordset")
sqld="select * from tb_Dept order by up"
rsd.open sqld,conn,1,1 
'人员
set rsr=server.CreateObject("adodb.recordset")
sqlr="select * from tb_Employee where kong=1"
rsr.open sqlr,conn,1,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
.style2 {color: #0000FF}
.style3 {color: #FF0000}
body,td,th {
	font-size: 12px;
}
-->
</style>
</head>

<body topmargin="0">
<form name="form1" method="post" action="">
  <table width="550" border="0" align="center">
    <tr>
      <td width="55%" height="30"> - <span class="style3">个人管理</span>→<span class="style2">消息管理</span>→<span class="style3">公函申请</span></td>
    </tr>
  </table>
  <table width="550" border="0" align="center" cellspacing="1" bgcolor="#000000">
    <tr>
      <td bgcolor="#FFFFFF"><table width="550" border="0" cellspacing="0">
        <tr>
          <td height="28" background="images/index_24.gif">&nbsp;</td>
        </tr>
      </table>
        <table width="550" border="0" align="center" cellspacing="1"  >
          <tr>
            <td width="132" align="right" valign="top">发送对象：</td>
            <td width="411"><table width="409" border="0" cellspacing="０">
                <tr>
                  <td width="84"><input name="duixiang" type="radio" value="部门" checked>
            部门</td>
                  <td width="256"><select name="doid" id="doid">
                      <%
		  if not rsd.eof then 
		  for i=1 to rsd.recordcount
  	  	 xian=""
		for j=1 to rsd("level")-1
			xian = xian&"├"
		next
		xian=xian&"〖"&rsd("title")&"〗<br>"
		  %>
                      <option value="<%=rsd("id")%>"><%=xian%></option>
                      <%
		  rsd.movenext
		  next
		  end if
		  %>
                    </select>
                      <input name="post" type="hidden" id="post" value="true"></td>
                </tr>
                <tr>
                  <td><input type="radio" name="duixiang" value="个人">
            个人</td>
                  <td><select name="geren" size="5" id="select4">
                      <%
	  
	   do while not rsr.EOF
    set rss=server.CreateObject("adodb.recordset")
	sqls="Select * from tb_dept where id="&rsr("suoshu")&" order by up"
	rss.Open sqls,conn,1,1
	
	  %>
                      <option value="<%=rsr("id")%>">〖<%=rss("title")%>〗<%=rsr("name")%>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</option>
                      <%
		rsr.movenext 
		
		loop
		
		
	 %>
                  </select></td>
                </tr>
            </table></td>
          </tr>
          <tr>
            <td height="29" align="right">公函标题：</td>
            <td><input name="title" type="text" id="title"></td>
          </tr>
          <tr>
            <td height="29" align="right">公函编号：</td>
            <td><input name="number" type="text" id="number"></td>
          </tr>
          <tr>
            <td align="right" valign="top">公函内容：</td>
            <td><textarea name="content" cols="45" rows="5" id="content"></textarea></td>
          </tr>
          <tr align="center">
            <td colspan="2"><input type="submit" name="Submit" value="　提　交　">
      　
        <input type="reset" name="Submit2" value="　重　置　"></td>
          </tr>
        </table>
      <p>&nbsp;</p></td>
    </tr>
  </table>
  </form>
</body>
</html>