📄 admin_send.asp
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<!--#include file="connsf.asp" -->
<!--#include file="md5.inc" -->
<!--#include file="checkstr.asp" -->
<!--#include file="config.asp" -->
<%'检验用户
user=checkstr(session("user"))
pass1=ucase(md5(session("pass")))
str="select 姓名,用户类别 from user_teacher where 用户名='"&user&"' and 密码='"&pass1&"'"
set rs=conn.execute(str)
if rs.eof or rs("用户类别")<>"管理员" then
response.redirect("user_login.asp")
else
user_name=rs("姓名")
user_class=rs("用户类别")
end if
rs.close
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>发送信息</title>
<!--#include file="css.css" -->
<script LANGUAGE="javascript">
<!--
function form1_onsubmit() {
var i, n;
if (document.form1.zt.value=="")
{
alert("对不起，请输入发送信息的主题！")
document.form1.zt.focus()
return false
}
else if (document.form1.zt.value.length < 2)
{
alert("您的主题能不能长一点！")
document.form1.zt.focus()
return false
}
}
//Function to open pop up window
function openWin(theURL,winName,features) {
window.open(theURL,winName,features);
}
//-->
</script>
<SCRIPT>
// Begin upload1
function upload1(upload1)
{
url ='upload1.asp';
window.open(url,upload1,"width=520,height=180,status=no,toolbar=no,menubar=no,scrollbars=no,resizable=no");
}
// End adduser-->
</script>
</head>
<%doing=Trim(Request.QueryString("doing"))%>
<%'信息写入数据库
if doing="sendto" then
usr_all=Trim(Request.Form("usr_all"))
set sele_bumeng=Request.Form("sele_bumeng")
set sele_zhuwu=Request.Form("sele_zhuwu")
set sele_name=Request.Form("sele_name")
sure_user=Trim(Request.Form("sure_user"))
zt=Trim(Request.Form("zt"))
zt=checkstr(zt)
nr=Request.Form("nr")
nr=checkstr(nr)
if nr="" then nr=" "
fj_name=session("fj_name")
session("fj_name")=empty
fj_sm=session("fj_sm")
session("fj_sm")=empty
if fj_name="" then fj_name=" "
if fj_sm="" then fj_sm=" "
fj_count=int(len(fj_name)/24)
jsz="|"
if usr_all="1" then '发送给全部人员
usr_all="1"
else '发给部分人员
usr_all="0"
'得到部门人
for each temp in sele_bumeng
str="select 姓名 from user_teacher where 部门='"&temp&"'"
set rs=conn.execute(str)
if not rs.eof then
do while not rs.eof
jsz=jsz&rs("姓名")&"|"
rs.movenext
loop
end if
rs.close
next
'得到职务人员
for each temp in sele_zhuwu
temp1="|"&temp&"|"
str="select 姓名 from user_teacher where 职务 like '%"&temp1&"%'"
set rs=conn.execute(str)
if not rs.eof then
do while not rs.eof
jsz=jsz&rs("姓名")&"|"
rs.movenext
loop
end if
rs.close
next
'得到选择人员
for each temp in sele_name
jsz=jsz&temp&"|"
next
'得到指定人
if sure_user<>"" then jsz=jsz&sure_user&"|"
end if
sql="select * from woa"
rs.open sql,conn,2,3
rs.addnew
rs("主题")=1
rs("跟贴主题")=0
rs("点击数")=0
rs("跟贴数")=0
rs("标题")=zt
rs("内容")=nr
rs("发文日期")=date
rs("发文时间")=time
rs("发文者")=user_name
rs("接收者")=jsz
rs("已看者")="|"
rs("已清除者")="|"
rs("附件数")=fj_count
rs("附件说明")=fj_sm
rs("附件")=fj_name
rs("所有人")=usr_all
rs("置顶")=0
rs("成批删除")=1
rs("清除")=1
rs.update
rs.close
response.redirect("admin_list.asp")
end if
%>
<body topmargin="1" oncontextmenu="return false">
<div align="center">
<table width="760" border="0" cellpadding="0" cellspacing="0" class="tabletblg">
<tr>
<td><!--#include file="top.asp" --></td>
</tr>
</table>
<table width="760" border="0" cellpadding="0" cellspacing="0" class="tablelrb">
<tr>
<td class="fontsize04"> </td>
</tr>
</table>
<table width="760" border="0" cellpadding="0" cellspacing="0" class="tablelrb">
<tr>
<td height="30" bgcolor="#6699FF">
<!--#include file="admin_menu.asp" -->
</td>
</tr>
</table>
<table width="760" border="0" cellpadding="0" cellspacing="0" class="tablelrb">
<tr>
<td class="fontsize04"> </td>
</tr>
</table>
<table width="760" border="0" cellpadding="0" cellspacing="0" class="tablelrb">
<tr>
<td height="30" bgcolor="#6699FF"> <span class="fontsize14"><%=user_name%>，你好！欢迎使用留溪网上传文系统。你现在可以发送信息！</span></td>
<td width="40" bgcolor="#6699FF"><div align="center"><a href="admin_list.asp?pageno=<%=pageno%>" class="fontsize14wu" onMouseOver="window.status='';return true"><strong><font color="#FF0000">返回</font></strong></a></div></td>
</tr>
</table>
<table width="760" border="0" cellpadding="0" cellspacing="0" class="tablelrb">
<tr>
<td class="fontsize04"> </td>
</tr>
</table>
<table width="760" border="0" cellpadding="0" cellspacing="0" class="tablelrb">
<tr>
<td bgcolor="#6699FF"><table width="600" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="fontsize10"> </td>
</tr>
</table>
<table width="750" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><form name="form1" LANGUAGE="javascript" onsubmit="return form1_onsubmit()" method="post" action="admin_send.asp?doing=sendto">
<table width="740" border="1" align="center" cellpadding="2" cellspacing="0" borderColorLight="#000000" borderColorDark="#ffffff">
<tr>
<td width="16" align="center" valign="middle" bgcolor="#99CCFF">
<p class="fontsize14">接</p> <p class="fontsize14">收</p>
<p class="fontsize14">人</p></td>
<td width="710" valign="top" bgcolor="#99CCFF" class="fontsize14h20wu"><table width="100%" border="0" align="center" cellpadding="3" cellspacing="0">
<tr>
<td><input name="usr_all" type="checkbox" id="usr_all" value="1">
<span class="fontsize14">所有人 <font color="#FF0000">若选所有人接收信息，则下面不用再选择。</font> <%if doing<>"list_all_yes" then%>
<a href="admin_send.asp?doing=list_all_yes" class="fontsize14wu" onMouseOver="window.status='';return true">显示所有人姓名</a>
<%else%>
<a href="admin_send.asp" class="fontsize14wu" onMouseOver="window.status='';return true">关闭所有人姓名</a>
<%end if%></span></td>
</tr>
</table>
<%str="select * from woa_bumeng"
set rs=conn.execute(str)
if not rs.eof then
m=0%>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="0">
<tr>
<%do while not rs.eof%>
<td width="14%">
<input name="sele_bumeng" type="checkbox" id="sele_bumeng" value="<%=rs("部门")%>">
<span class="fontsize14"><%=rs("部门")%></span></td>
<%rs.movenext
m=m+1
if m mod 7=0 then response.write "</tr><tr>"
loop%>
</tr>
</table>
<%end if
rs.close%>
<%str="select * from woa_zhuwu"
set rs=conn.execute(str)
if not rs.eof then
m=0%>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<%do while not rs.eof%>
<td width="14%">
<input name="sele_zhuwu" type="checkbox" id="sele_zhuwu" value="<%=rs("职务")%>">
<span class="fontsize14"><%=rs("职务")%></span></td>
<%rs.movenext
m=m+1
if m mod 7=0 then response.write "</tr><tr>"
loop%>
</tr>
</table>
<%end if
rs.close%>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td class="fontsize14">指定接收人：
<input name="sure_user" type="text" class="inputtext" id="sure_user" size="40">
请输入收文人姓名，多人以半角的“|”符号隔开。</td>
</tr>
</table>
<%if doing="list_all_yes" then%>
<%str="select 姓名,部门 from user_teacher order by "&jsrx&""
set rs=conn.execute(str)
if not rs.eof then
m=0%>
<table width="99%" border="0" align="center" cellpadding="1" cellspacing="0">
<tr>
<%do while not rs.eof%>
<td width="14%"><input name="sele_name" type="checkbox" id="sele_name" value="<%=rs("姓名")%>">
<span class="fontsize12h20"><%=rs("姓名")%>(<%=left(rs("部门"),1)%>)</span></td>
<%rs.movenext
m=m+1
if m mod 7=0 then response.write "</tr><tr>"
loop%>
</tr>
</table>
<%end if%>
<%rs.close
end if%>
</td>
</tr>
</table>
<table width="500" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="fontsize04"> </td>
</tr>
</table>
<table width="740" border="1" align="center" cellpadding="2" cellspacing="0" borderColorLight="#000000" borderColorDark="#ffffff" bgcolor="#99CCFF">
<tr>
<td width="40" class="fontsize14"><div align="center">主题</div></td>
<td width="706"><div align="center">
<input name="zt" type="text" class="inputtext" id="zt" size="112">
</div></td>
</tr>
<tr>
<td valign="top" class="fontsize14">
<div align="center">内容</div></td>
<td><div align="center">
<textarea name="nr" style="font-family:宋体;font-size:12px" cols="110" rows="20" id="nr"></textarea>
</div></td>
</tr>
<tr>
<td class="fontsize14"><div align="center">附件</div></td>
<td height="30">
<input type="button" name="Submit2" class="inputbox" value="上传附件" style="font-size: 9pt;cursor:hand" onclick="javascript:upload1()" title="选择上传文件">
</td>
</tr>
<tr>
<td height="40" colspan="2" class="fontsize14"><div align="center">
<input name="Submit" type="submit" class="inputbox" value=" 发送信息 ">
<input name="Submit3" type="reset" class="inputbox" value=" 重填信息 ">
</div></td>
</tr>
</table>
</td></form>
</tr>
</table>
<table width="600" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="fontsize10"> </td>
</tr>
</table></td>
</tr>
</table>
<table width="760" border="0" cellpadding="0" cellspacing="0" class="tablelr">
<tr>
<td class="fontsize04"> </td>
</tr>
</table>
<table width="760" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><!--#include file="bottom.asp" --></td>
</tr>
</table>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -