📄 meetquery.asp
字号:
<html>
<head>
<title>∷公文传输系统|电子公文交换系统|文件传输系统|办公自动化系统|公文管理系统|文档管理软件|公文上报系统|政务信息上报系统 ——智元软件</title>
<META name="keywords" content="公文传输系统 电子公文交换系统 企业文档传输系统 文件传输系统 办公自动化系统 公文管理系统 企业文档管理软件 公文上报系统 政务信息上报系统 智元软件">
<META content="智元软件公文传输系统实现党政机关企事业单位部门与部门之间，单位与单位之间公文上报和下发。我们致力于为您提供操作简便、直观实用、价格便宜的公文交换软件，可直接在线或下载试用，每套系统仅售1200元。上百家成功应用客户案例和我们诚信专业完善的售后服务，是您信任我们的基础。" name="description">
<LINK href="img/Forum.css" type=text/css rel=stylesheet>
<SCRIPT language=javascript src="css/init.js">
</SCRIPT>
<!--#include file="asp/opendb.asp"-->
<!--#include file="asp/checkuser.asp"-->
<!--#include file="asp/checkqs.asp"-->
<%
set conn=opendb("oabusy","conn","accessdsn")
'签收处理程序
if request("action")="qs" then
sql="update meetuser set qshou=1,qstime='"&now&"' where id="&request("thisid")
conn.execute sql
action=""
end if
'签到处理程序
if request("action")="qd" then
sql="update meetuser set qdao=1,qdtime='"&now&"' where id="&request("thisid")
conn.execute sql
action=""
end if
%>
<script language="JavaScript">
<!--
MM_reloadPage(true);
// -->
</script>
</HEAD>
<BODY topMargin=0 rightMargin=0 leftMargin=0>
<div id="Layer1" style="position:absolute; width:306px; height:15px; z-index:1; left: 182px; top: 1px">
<%
if strmeet<>"" then
'Response.Write " <marquee scrolldelay=290>未签收的会议及文件:"&strmeet&"</marquee>"
end if
%>
</div>
<!--#include file="asp/top.asp"-->
<br>
<TABLE borderColor=#ccccccc cellSpacing=0 borderColorDark=#ffffff cellPadding=0 width=90% border=1 align="center">
<TBODY>
<TR>
<TD vAlign=top align=middle>
<TABLE cellSpacing=1 cellPadding=0 width="100%" bgColor=#cccccc border=0>
<TBODY>
<TR height="28">
<TD width=42><A href="meetquery.asp">刷新</A> </TD>
<TD align=right width="845">
<TABLE cellSpacing=0 cellPadding=0 width="98%" align=right
border=0>
<TBODY>
<td align="right">
<%
Set rs=Server.CreateObject("ADODB.recordset")
sql="select * from meetdate where "
'----------查询开始
if Request.ServerVariables("REQUEST_METHOD") = "POST" Then
if request("meetname")<>"" then
sql=sql&" meetname like '%"&request("meetname")&"%'"
end if
if request("opendept")<>"" then
if request("meetname")<>"" then
sql=sql&" and opendept like '%"&request("opendept")&"%'"
else
sql=sql&" opendept like '%"&request("opendept")&"%'"
end if
end if
' if request("byear")<>"" and request("bmonth")<>"" and request("bday")<>"" and request("eyear")<>"" and request("emonth")<>"" and request("eday")<>"" then
' if request("meetname")<>"" or request("meetman")<>"" or request("content")<>"" or request("opendept")<>"" then
' sql=sql&",cdate(meettime) between cdate("&request("byean")&request("bmonth")&request("bday")&")"
' sql=sql&" and cdate("&request("byean")&request("bmonth")&request("bday")&")"
' else
' sql=sql&" cdate(meettime) between cdate("&request("byean")&request("bmonth")&request("bday")&")"
' sql=sql&" and cdate("&request("byean")&request("bmonth")&request("bday")&")"
' end if
' end if
end if
'------------查询结束
if request("meetname")<>"" or request("opendept")<>"" or request("byear")<>"" or request("bmonth")<>"" or request("bday")<>"" or request("eyear")<>"" or request("emonth")<>"" or request("eday")<>"" then
sql=sql&" and joinman like '%|"&oabusyusername&"|%' order by id desc"
else
sql=sql&"joinman like '%|"&oabusyusername&"|%' order by id desc"
end if
if instr(1,"||supermanage||chksuper|",oabusyuserpower)>1 then
sql="select * from meetdate order by id desc"
end if
' response.write sql
rs.open sql,conn,1
'判断有无记录
if not rs.EOF and not rs.BOF then
pagecount=10
rs.PageSize =pagecount
curpage=cint(request("page"))
if curpage<1 then
curpage=1
end if
if curpage>=rs.PageCount then
curpage=rs.PageCount
end if
rs.AbsolutePage =curpage
response.write "<div align=right>"
response.write "第" + cstr(curpage) + "页/总" + cstr(rs.pagecount) + "页 "
response.write "每页" + cstr(pagecount) + "条/共" + cstr(rs.recordcount) + "条 "
if curpage = 1 then
response.write "首页 前页 "
else
response.write "<a href='meetquery.asp? page=1'>首页</a> <a href='meetquery.asp?page=" + cstr(curpage-1) + "'>前页</a> "
end if
if curpage = rs.pagecount then
response.write "后页 末页 "
else
response.write "<a href='meetquery.asp?page=" + cstr(curpage+1) + "'>后页</a> <a href='meetquery.asp?page=" + cstr(rs.pagecount) + "'>末页</a>"
end if
%>
</TD></TR></TABLE></table>
<DIV align=center>
<% 'if not rs.EOF and not rs.BOF then
color=false
count=0
do while not rs.EOF and count<pagecount
if color then
bg="#eeeeee"
else
bg="#ffffff"
end if
'----------------------------------------------------------------------------
'若是管理员，则运行下面代码
if instr(1,"||supermanage||chksuper|",oabusyuserpower)>1 or rs("fbdw")=oabusyusername then
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="<%=bg%>">
<tr bgcolor="<%=bg%>">
<td colspan="3" color="">会议名称:<b><font size=3 color=blue><%=rs("meetname")%>
</font></b>
<%
if abs(datediff("d",date,rs("jointime")))<2 then
Response.Write "<img src='img/cnnew.gif'>"
end if
%>
</td>
</tr>
<tr bgcolor="<%=bg%>">
<td color=""width=50%>会议召开时间:<%=rs("meettime")%></td>
<td color="" width="50%">会议组织单位:<font color=blue><%=rs("opendept")%></font></td>
</tr>
<tr bgcolor="<%=bg%>">
<td width="33%" color="">
会议签收:
<%
if instr(1,"||supermanage||chksuper|",oabusyuserpower)>1 then Response.Write "<font color=#00a200>管理员不用签收!</font>"
if rs("fbdw")=oabusyusername then Response.Write "<font color=#00a200>发布单位不用签收!</font>"
Response.Write " "
Response.write "<a title=下载打印会议通知 href='download.asp?path="&rs("filepath")&rs("filename")&"'>点击下载通知</a>"
%>
</td>
<td width="20%" color=""> 会议签到:
<%
if instr(1,"||supermanage||chksuper|",oabusyuserpower)>1 then Response.Write "<font color=#00a200>管理员不用签到!</font>"
if rs("fbdw")=oabusyusername then Response.Write "<font color=#00a200>发布单位不用签到!</font>"
%>
</td>
</tr>
<tr bgcolor="<%=bg%>">
<td color="">会议材料:
<%
i=0
total=0
Set rs2=Server.CreateObject("ADODB.recordset")
'会议材料篇数
sql="select count(*) as totalnum from ldjhg where reid="&rs("id")
rs2.open sql,conn,1
if rs2("totalnum")>0 then
totalnum=rs2("totalnum")
else
totalnum=0
end if
rs2.Close
Response.Write "共"&totalnum&"篇 >>下载会议材料: "
'按序列显示会议材料
sql="select * from ldjhg where reid="&rs("id")
rs2.open sql,conn,1
if not rs2.eof and not rs2.bof then
do while not rs2.EOF
i=i+1
filepath=rs2("filepath")&rs2("filename")
Response.Write "<a href='download.asp?path="&filepath&"'>"&i&"</a> "
rs2.MoveNext
loop
end if
rs2.Close
set rs2=nothing
%>
</td>
<td color="">反馈情况:
<%
if instr(1,"||supermanage||chksuper|",oabusyuserpower)>1 then Response.Write "<font color=#00a200>管理员不用反馈!</font>"
if rs("fbdw")=oabusyusername then Response.Write "<font color=#00a200>发布单位不用反馈!</font>"
%>
</td>
</tr>
<tr bgcolor="<%=bg%>">
<td colspan="3" color="" ><div align=center>
<font color="#009933"> <a href="javascript:openScript1('meetqs.asp?id=<%=rs("id")%>',600,500)">签收签到情况</a>
<a href="javascript:openScript1('meetfk.asp?id=<%=rs("id")%>',600,500)">查看反馈情况</a></font></div></td>
</tr>
</table>
<hr size="1" color="#cccccc">
<%
'若不是管理员则运行下面代码
else
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="<%=bg%>">
<tr bgcolor="<%=bg%>">
<td colspan="3" color="">会议名称:<b><font size=3 color=blue><%=rs("meetname")%>
</font></b>
<%
if abs(datediff("d",date,rs("jointime")))<2 then
Response.Write "<img src='img/cnnew.gif'>"
end if
%>
</td>
</tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -