📄 meetjh.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/top.asp"-->
<!--#include file="asp/checkuser.asp"-->
<link rel="stylesheet" href="css/css.css">
<SCRIPT language=javascript src="css/init.js">
</SCRIPT>
</head>
<body topmargin="5" leftmargin="0">
<center>
<br>
<%
set conn=opendb("oabusy","conn","accessdsn")
Set rs=Server.CreateObject("ADODB.recordset")
if instr(1,"||supermanage||chksuper|",oabusyuserpower)>1 then
sql="select id,meetname,ldjhyn,fbdw from meetdate order by id desc"
else
sql="select id,meetname,ldjhyn,fbdw 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=20
page=request("page")
if not isnumeric(page) then page=1
page=clng(page)
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
href="meetjh.asp"
rs.absolutepage=page
%>
<center><b>会议材料情况</center><p>
<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 height="25" align=center><b>会议名称</b></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><%=rs("meetname")%>
<td align="center">
<%
totalnum=0
Set rs1=Server.CreateObject("ADODB.recordset")
sql="select count(*) as totalnum from ldjhg where reid="&rs("id")
rs1.open sql,conn,1
totalnum=rs1("totalnum")
if totalnum>0 then
Response.Write "共"&totalnum&"篇"
else
Response.Write "0篇"
end if
rs1.Close
set rs1=nothing
%> </td>
<td align="center"> <a href="fbjhg.asp?id=<%=rs("id")%>">发布</a>
</td>
<td align="center"><% if totalnum>0 then%><a href="managejhg.asp?id=<%=rs("id")%>"><%end if%>管理</a></td>
</tr>
<%
rs.movenext
color=not color
if rs.eof then exit for
next
%>
</table>
</table>
</table>
<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>"
%>
</td>
<td align="center">第<%=page%>/<%=rs.pagecount%>页</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 + -