📄 messagead.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file=DataBase/conn.asp-->
<!--#include file=yan.asp-->
<!--#include file=purview.asp-->
<%
call fabutongzhi
'部门
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("content")="" then
response.Write("<script language=javascript>alert('消息内容不能为空');location='javascript:history.go(-1)'</script>")
response.End()
end if
select case request("fasong")
case "部门"
if request("doid") <> "" then
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
fasong
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
fasong
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_Message"
rsa.open sqla,conn,1,3
rsa.addnew
rsa("title")=request("title")
rsa("content")=request("content")
rsa("jieshouzhe")=request("geren")
rsa("tongzhilei")=request("tongzhilei")
rsa("fabuzhe")=session("admin_name")
rsa("time")=now()
rsa.update
rsa.close
set rsa1=server.CreateObject("adodb.recordset")
sqla1="select * from tb_Messagef"
rsa1.open sqla1,conn,1,3
rsa1.addnew
rsa1("title")=request("title")
rsa1("content")=request("content")
rsa1("jieshouzhe")=request("geren")
rsa1("tongzhilei")=request("tongzhilei")
rsa1("fabuzhe")=session("admin_name")
rsa1("time")=now()
rsa1.update
rsa1.close
response.Write("<script language=javascript>alert('发送成功')</script>")
end select
end if
sub fasong
'发送到发件箱
set rsm1=server.CreateObject("adodb.recordset")
sqlm1="select * from tb_Message"
rsm1.open sqlm1,conn,1,3
rsm1.addnew
rsm1("title")=request("title")
rsm1("content")=request("content")
rsm1("jieshouzhe")=rsg("id")
rsm1("tongzhilei")=request("tongzhilei")
rsm1("fabuzhe")=session("admin_name")
rsm1("time")=now()
rsm1.update
rsm1.close
'发送到收件箱
set rsm3=server.CreateObject("adodb.recordset")
sqlm3="select * from tb_Messagef"
rsm3.open sqlm3,conn,1,3
rsm3.addnew
rsm3("title")=request("title")
rsm3("content")=request("content")
rsm3("jieshouzhe")=rsg("id")
rsm3("tongzhilei")=request("tongzhilei")
rsm3("fabuzhe")=session("admin_name")
rsm3("time")=now()
rsm3.update
rsm3.close
rsg.MoveNext
end sub
set rs=server.CreateObject("adodb.recordset")
sql="Select * from tb_dept order by up"
rs.Open sql,conn,1,3
'人员
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: #FF0000}
body,td,th {
font-size: 12px;
}
-->
</style>
<link href="CSS/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style3 {color: #0000FF}
-->
</style>
</head>
<body topmargin="0">
<table width="550" border="0" align="center">
<tr>
<td width="55%" height="30"> - <span class="style2">人事管理</span>→<span class="style3">人力规划</span>→<span class="style2">在线发布通知</span></td>
</tr>
</table>
<table width="550" border="0" align="center" cellspacing="1" bgcolor="#000000">
<tr>
<td bgcolor="#FFFFFF"><table width="550" height="30" border="0" align="center" cellspacing="0" background="images/index_24.gif">
<tr>
<td> </td>
</tr>
</table>
<table width="550" border="0" align="center" cellspacing="0" >
<form name="form2" method="post" action="">
<tr>
<td width="184" align="right">发送对象：</td>
<td width="553"><table width="100%" border="0" cellspacing="1">
<tr>
<td width="5%"><input name="fasong" type="radio" value="部门" checked>
</td>
<td width="6%">部门 </td>
<td width="89%"><select name="doid" id="select3">
<%
do while not rs.EOF
xian=""
for i=1 to rs("level")-1
xian= xian&"├"
next
xian = xian&"〖"&trim(rs("title"))&"〗"
%>
<option value="<%=rs("id")%>"><%=xian%></option>
<%
rs.movenext
loop
%>
</select>
<input name="post" type="hidden" id="post" value="true"></td>
</tr>
<tr>
<td><input type="radio" name="fasong" value="个人">
</td>
<td>个人 </td>
<td><select name="geren" size="4" id="select4">
<%
do while not rsr.EOF
set rss=server.CreateObject("adodb.recordset")
sqls="Select * from tb_dept where id="&rsr("suoshu")
rss.Open sqls,conn,1,1
%>
<option value="<%=rsr("id")%>">〖<%=rss("title")%>〗<%=rsr("name")%></option>
<%
rsr.movenext
loop
%>
</select></td>
</tr>
</table></td>
</tr>
<tr>
<td align="right">消息标题：</td>
<td>
<input name="title" type="text" class="wenben" id="title2"></td>
</tr>
<tr>
<td align="right">消息内容：</td>
<td>
<textarea name="content" cols="50" rows="10" id="textarea"></textarea></td>
</tr>
<tr>
<td align="right">消息等级：</td>
<td> <select name="tongzhilei" id="select">
<option value="特别通知" selected>特别通知</option>
</select></td>
</tr>
<tr>
<td colspan="2"><p align="center">
<input name="Submit" type="submit" class="botton" value=" 发 送 ">
</p>
<p align="center" class="style2">注意：部门选择首席执行官发送给全部员工，发给某个部门，那个部门以下的部门和员工都会收到通知</p></td>
</tr>
</form>
</table></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -