📄 meetqs.asp
字号:
<html>
<head>
<title>∷公文传输系统|电子公文交换系统|文件传输系统|办公自动化系统|公文管理系统|文档管理软件|公文上报系统|政务信息上报系统 ——智元软件</title>
<META name="keywords" content="公文传输系统 电子公文交换系统 企业文档传输系统 文件传输系统 办公自动化系统 公文管理系统 企业文档管理软件 公文上报系统 政务信息上报系统 智元软件">
<META content="智元软件公文传输系统实现党政机关企事业单位部门与部门之间，单位与单位之间公文上报和下发。我们致力于为您提供操作简便、直观实用、价格便宜的公文交换软件，可直接在线或下载试用，每套系统仅售1200元。上百家成功应用客户案例和我们诚信专业完善的售后服务，是您信任我们的基础。" name="description">
<!--#include file="asp/opendb.asp"-->
<!--#include file="asp/checkuser.asp"-->
<%
'页面主要作用是:显示单位会议的签收签到列表
set conn=opendb("oabusy","conn","accessdsn")
id=request("id")
'查询会议名称
sql="select id,fbdw,meetname,opendept,meettime from meetdate where id="&id
Set rs=Server.CreateObject("ADODB.recordset")
rs.Open sql,conn,1
if rs.EOF and rs.BOF then
Response.Write "没有此记录,请与管理员联系!!"
Response.End
end if
fbdw=rs("fbdw")
%>
<LINK href="style.css" rel=stylesheet><LINK
href="img/Forum.css" type=text/css rel=stylesheet>
</head>
<BODY lang=ZH-CN style="TEXT-JUSTIFY-TRIM: punctuation; tab-interval: 21.0pt"
topMargin=2 rightMargin=0 background=img/bg.gif>
<p><p><center><br>
会议名称:<font size=4 color="#0000ff" ><b><%=rs("meetname")%><br>
<br>
</b></font>[召开时间:<%=rs("meettime")%>,组织单位:<%=rs("opendept")%>]
</center><p>
<%
'将前面打开的会议记录关闭
rs.Close
'打开会议与会人员记录
sql="select * from meetuser where reid="&id&" order by id asc"
rs.Open sql,conn,1
if not rs.EOF and not rs.BOF then
%>
<table border="0" width="100%" cellspacing="1">
<tr>
<td bgcolor="#FF9966" width=20%><font size="2">
<p align="center" >与会单位</font> </td>
<td bgcolor="#FF9966"width="15%">
<div align="center"><font size="2"> 签收情况</font> </div>
</td>
<td bgcolor="#FF9966" width="20%">
<div align="center">签收时间</div>
</td>
<td bgcolor="#FF9966" width="16%">
<div align="center">签到情况</div>
</td>
<td bgcolor="#FF9966" width="20%">
<div align="center">签到时间</div>
</td>
<tr>
<%
i=0 '签收个数
j=0 '未签收个数
m=0 '签到个数
n=0 '未签收个数
color=false
do while not rs.EOF
if color then
bg="#ffcc99"
else
bg="#ffffff"
end if
Response.Write "<tr bgcolor="&bg&"><td width='20%'><font size=2><p align=center>"
if rs("qshou")=1 or rs("username")=fbdw then
i=i+1
Response.Write "<font color='#00a200'>"
else
j=j+1
Response.Write "<font color='#ff0000'>"
end if
Response.write rs("name")&"</font>"
Response.Write "</font> </td> <td width='10%' > <div align=center>"
if rs("qshou")=1 or rs("username")=fbdw then
Response.Write "<font color='#00a200'>已签收</font>"
else
Response.write"<img src='img/qsno.gif'>"
end if
if rs("username")=fbdw then
Response.Write "</div> </td><td width=20% align=center><font color='#00a200'>发布者</font><div align=center></div></td>"
else
Response.Write "</div> </td><td width=20% >"&rs("qstime")&"<div align=center></div></td>"
end if
Response.Write "<td width=10% > <div align=center>"
if rs("qdao")=1 or rs("username")=fbdw then
m=m+1
Response.Write "<font color='#00a200'>已签到</font>"
else
n=n+1
Response.write"<img src='img/qdno.gif'>"
end if
if rs("username")=fbdw then
Response.Write "</div> </td><td width=20% align=center><font color='#00a200'>发布者</font><div align=center></div></td></tr>"
else
Response.Write "</div> </td><td width=20% >"&rs("qdtime")&"<div align=center></div></td></tr>"
end if
rs.MoveNext
color=not color
loop
response.write "已签收单位共"&i&"个,未签收单位共"&j&"个;签到单位共"&m&"个,未签到单位共"&n&"个"
end if%>
</table>
</body>
<%
rs.Close
set rs=nothing
Conn.Close
set Conn = nothing
Response.Write "<p><div align=right>【<a href='javascript:window.close()'>关闭窗口</a>】</div>"
%>
<!--#include file="footer.htm"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -