📄 managetg.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"-->
<%
set conn=opendb("oabusy","conn","accessdsn")
if request("detel")="删除" and request("delid")<>"" then
count=0
condition=""
for each idno in request("delid")
count=count+1
condition=condition+"id=" & idno
if count<request("delid").count then
condition=condition+" or "
end if
next
'删除数据库中的记录
sql = "delete * from newnotice where " & condition
conn.Execute sql
'Response.Write "该会议通知已删除!!!"&"<P>"
'Response.Write "<a href='noticecontrol.asp'>返回</a>"
Response.Redirect "managetg.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>
<table>
<tr>
<td><b>通报管理</b></td>
</tr>
</table>
</center>
<center>
<%
Set rs=Server.CreateObject("ADODB.recordset")
if instr(1,"||supermanage|chksuper|",oabusyuserpower)>1 then
sql="select * from newnotice order by id desc"
else
sql="select * from newnotice where username='"&oabusyusername&"' order by id desc"
end if
rs.open sql,conn,1
if not rs.eof and not rs.bof then
rs.pagesize=10
page=request("page")
if not isnumeric(page) then page=1
page=clng(page)
if err.number<>0 then page=1
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
href="managetg.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 bgcolor="#CCCCCC" height="25">
<td width="46" align="center">
<input type="submit" value="删除" name="detel" onclick="return window.confirm('你确定要删除该通报吗？');" style="border:1 solid #000000;background:#ffcc66">
</td>
<td align=center><b>通报名称</b></td>
<td align=center><b>发布单位</b></td>
<td align=center><b>操作</b></td>
</tr>
<%
for ipage=1 to rs.pagesize
if color then
bg="#Eeeeee"
else
bg="#ffffff"
end if
%>
<tr bgcolor="<%=bg%>" height="20">
<td width="46" align="center" bgcolor="<%=bg%>">
<input type="checkbox" name="delid" value=<%=rs("id")%>></td>
<td><a href="javascript:openScript1('showtg.asp?id=<%=rs("id")%>',600,500)"><%=rs("title")%>
</a></td>
<td align="center">
<%
set rs1=server.CreateObject("adodb.recordset")
sql="select name from userinf where username='"&rs("username")&"'"
rs1.open sql,conn,1
Response.Write rs1("name")
rs1.close
set rs1=nothing
%> </td>
<td align="center" width=58><a href='fbtg.asp?action=modify&id=<%=rs("id")%>'>修改</a></td>
</tr>
<%
rs.movenext
color=not color
if rs.eof then exit for
next
%>
</table></table></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 + -