📄 noteadd.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file=DataBase/conn.asp-->
<!--#include file=yan.asp-->
<!--#include file=purview.asp-->
<%
call fabuxinxi
'部门
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
set rsm=server.CreateObject("adodb.recordset")
sqlm="select * from tb_Message"
rsm.open sqlm,conn,1,3
rsm.addnew
rsm("title")=request("title")
rsm("content")=request("content")
rsm("jieshouzhe")=rsf("id")
rsm("tongzhilei")=request("tongzhilei")
rsm("fabuzhe")=session("admin_name")
rsm("time")=now()
rsm.update
rsm.close
'发送到发件箱
set rsm2=server.CreateObject("adodb.recordset")
sqlm2="select * from tb_Messagef"
rsm2.open sqlm2,conn,1,3
rsm2.addnew
rsm2("title")=request("title")
rsm2("content")=request("content")
rsm2("jieshouzhe")=rsf("id")
rsm2("tongzhilei")=request("tongzhilei")
rsm2("fabuzhe")=session("admin_name")
rsm2("time")=now()
rsm2.update
rsm2.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_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
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
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">
<!--
.style1 {color: #0000FF}
.style2 {color: #FF0000}
body,td,th {
font-size: 12px;
}
-->
</style>
<link href="CSS/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
a:link {
color: #0000FF;
}
a:visited {
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="style1">消息管理</span>→<span class="style2">发布信息</span></td>
</tr>
</table>
<div align="center">
<%if tb=1 then%>
收到的信息
<%else%>
<a href="messagegeguan.asp?tb=1">收到的信息</a>
<%end if%>
<%if tb=2 then%>
已发出的信息
<%else%>
<a href="messagegeguan.asp?tb=2">已发出的信息</a>
<%end if%>
发布新信息
</div>
<table width="550" border="0" align="center" cellspacing="1" bgcolor="#000000">
<tr>
<td bgcolor="#FFFFFF"><table width="550" height="28" border="0" cellspacing="0">
<tr>
<td background="images/index_24.gif"> </td>
</tr>
</table>
<table width="550" border="0" align="center" cellspacing="0" >
<form name="form2" method="post" action="">
<tr>
<td width="184" align="right" valign="top">发送对象：</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 height="26" align="right">消息标题：</td>
<td>
<input name="title" type="text" class="wenben" id="title"></td>
</tr>
<tr>
<td align="right" valign="top">消息内容：</td>
<td>
<textarea name="content" cols="50" rows="10" class="wenben" id="content"></textarea></td>
</tr>
<tr>
<td align="right">消息等级：</td>
<td>
<select name="tongzhilei" id="tongzhilei">
<option value="普通消息">普通消息</option>
<option value="紧急消息">紧急消息</option>
<option value="十万火急">十万火急</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 + -