📄 noticecontrol.asp
字号:
<html>
<head>
<title>∷公文传输系统|电子公文交换系统|文件传输系统|办公自动化系统|公文管理系统|文档管理软件|公文上报系统|政务信息上报系统 ——智元软件</title>
<META name="keywords" content="公文传输系统 电子公文交换系统 企业文档传输系统 文件传输系统 办公自动化系统 公文管理系统 企业文档管理软件 公文上报系统 政务信息上报系统 智元软件">
<META content="智元软件公文传输系统实现党政机关企事业单位部门与部门之间，单位与单位之间公文上报和下发。我们致力于为您提供操作简便、直观实用、价格便宜的公文交换软件，可直接在线或下载试用，每套系统仅售1200元。上百家成功应用客户案例和我们诚信专业完善的售后服务，是您信任我们的基础。" name="description">
<LINK href="img/Forum.css" type=text/css rel=stylesheet>
<!--#include file="asp/opendb.asp"-->
<!--#include file="asp/checkuser.asp"-->
<!--#include file="asp/top.asp"-->
<SCRIPT language=javascript src="css/init.js">
</SCRIPT>
<%
set conn=opendb("oabusy","conn","accessdsn")
if request("action")="fb" then
yesnum=1
sql="update meetdate set fbqdao="&yesnum&" where id="&request("id")
conn.execute sql
sql="update meetuser set fbqdao="&yesnum&" where reid="&request("id")
conn.execute sql
Response.Redirect "noticecontrol.asp"
end if
if request("detel")="删除" and request("delid")<>"" then
count=0
condition=""
condition2=""
for each idno in request("delid")
count=count+1
condition=condition+"id=" & idno
condition2=condition2+"reid=" & idno
if count<request("delid").count then
condition=condition+" or "
condition2=condition2+" or "
end if
next
'删除数据库中的记录
sql = "delete * from meetdate where " & condition
conn.Execute sql
sql="delete * from meetuser where " & condition2
conn.execute sql
Response.Redirect "noticecontrol.asp"
end if
%>
<script language="javascript">
function view(id){
var id;
window.open('shownotice.asp?id='+id,'_blank','status=no,scrollbars=yes,top=20,left=100,width=500,height=400');
}
</script>
</head>
<body topmargin="5" leftmargin="0">
<br>
<center><b>会议通知管理</b></td></center>
<center>
<%
Set rs=Server.CreateObject("ADODB.recordset")
if instr(1,"||supermanage||chksuper|",oabusyuserpower)>1 then
sql="select meetname,id,opendept,meettime,fbqdao,ldjhyn,qdyn from meetdate order by id desc"
else
sql="select meetname,id,opendept,meettime,fbqdao,ldjhyn,qdyn from meetdate where fbdw='"&oabusyusername&"' order by id desc"
end if
rs.open sql,conn,1
if not rs.eof and not rs.bof then
rs.pagesize=25
page=request("page")
if not isnumeric(page) then
page=1
end if
page=clng(page)
if err.number<>0 then
page=1
end if
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
href="noticecontrol.asp"
rs.absolutepage=page
%>
<br>
<form method="post" action="<%=href%>?page=<%=page%>">
<table width="95%" border="0" bgcolor="#cccccc" cellpadding="1" cellspacing="0" align="center">
<tr>
<td>
<table width="100%" border="0" bgcolor="#FFFFFF" cellpadding="1" cellspacing="1">
<tr>
<td>
<table width="100%" border="0">
<tr bgcolor="#cccccc">
<td width="22" align="center">
<input type="submit" value="删除" name="detel" onclick="return window.confirm('你确定要删除该会议吗？');" style="border:1 solid #000000;background:#ffcc66">
</td>
<td align=center width="326"><b>会议名称</b></td>
<td align=center width="106"><b>召开时间</b></td>
<td align=center width="86"><b>组织单位</b></td>
<td align=center width="75"><b>签到单</b></td>
<td align=center width="78"><b>签收签到</b></td>
<td align=center width="79"><b>反馈情况</b></td>
<td align=center width="78"><b>会议材料</b></td>
<td align=center width="59"><b>操作</b></td>
</tr>
<%
for ipage=1 to rs.pagesize
if color then
bg="#eeeeee"
else
bg="#ffffff"
end if
%>
<tr bgcolor="<%=bg%>">
<td align="center" width="22">
<input type="checkbox" name="delid" value=<%=rs("id")%>>
</td>
<td width="326"><%=rs("meetname")%> </td>
<td width="106"><%=rs("meettime")%></td>
<td width="86"><%=rs("opendept")%></td>
<td width="75">
<%
if rs("qdyn")=1 then
if rs("fbqdao")=0 then
%>
<div align="center"><a href='noticecontrol.asp?action=fb&id=<%=rs("id")%>' onclick="return window.confirm('你确定发布该会议签到单吗？');">发布</a>
<%
else
%>
<div align=center>已发布</div>
<%
end if
else
Response.Write "不用签到"
end if
%>
</div>
</td>
<td align="center" width=78><a href="javascript:openScript1('meetqs.asp?id=<%=rs("id")%>',600,500)">查看</a></td>
<td align="center" width=79> <a href="javascript:openScript1('meetfk.asp?id=<%=rs("id")%>',600,500)">查看</a></td>
<td align="center" width=78>
<%
if rs("ldjhyn")=0 then
Response.Write "无"
else
Response.Write "<font color='#00cc00'>有</font>"
end if
%>
</td>
<td align="center" width=59><a href='modifynotice.asp?id=<%=rs("id")%>'>修改</a></td>
</tr>
<%
rs.movenext
color=not color
if rs.eof then exit for
next
%>
</table>
</td>
</tr>
</table> </tr>
</table>
<input type="hidden" name="page" value="<%=page%>">
</form>
<table border=0 width=550>
<tr><form action=<%=href%> method=get>
<td align="center">
<%
response.write "<a href=" & href & "?page=1>第一页</a>"
%>
</td>
<td align="center">
<%
response.write "<a href=" & href & "?page=" & (page-1) & ">上一页</a>"
%>
</td>
<td align="center">
<%
response.write "<a href=" & href & "?page=" & (page+1) & ">下一页</a>"
%>
</td>
<td align="center">
<%
response.write "<a href=" & href & "?page=" & rs.pagecount & ">最后一页</a> 现在第"&page&"页"
%>
</td>
</form></tr></table><br>
<%
else
%>
<br><br><br>
<table border="0" cellpadding="0" cellspacing="0" width="400">
<tr>
<td width="400" align="center"><font size="4" color="red">对不起,没有相关纪录</font></td></tr></table>
<%
end if
rs.Close
set rs=nothing
conn.close
set conn=nothing
%>
</center>
</body>
</html><!--#include file="footer.htm"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -