📄 qdqs.asp

📁 公文下发和上报管理：　在发布和上报文件时
💻 ASP
字号:

<link rel="stylesheet" href="css/css.css">
<!--#include file="asp/sqlstr.asp"-->

<!--#include file="asp/opendb.asp"-->
<!--#include file="asp/checked.asp"-->
<%
oabusyname=request.cookies("oabusyname")
oabusyusername=request.cookies("oabusyusername")
oabusyuserdept=request.cookies("oabusyuserdept")
oabusyuserlevel=request.cookies("oabusyuserlevel")
if oabusyusername="" then 
	response.write("<script language=""javascript"">")
	response.write("window.top.location.href='default.asp';")
	response.write("</script>")
	response.end
end if
set conn=opendb("oabusy","conn","accessdsn")
Set rs=Server.CreateObject("ADODB.recordset")
sql="select id,meetname,opendept,meettime from meetdate where id="&request("id")
rs.Open sql,conn,1
%>
<title><%if request("action")="qs" then 
Response.Write "签收情况" 
else
 Response.Write "签到情况" 
end if%></title><body background="img/bg.gif">
<center>
<font size=4 color="0000ff"><b><%=rs("meetname")%></b></font>
<br>
[召开时间:<%=rs("meettime")%>,组织单位:<%=rs("opendept")%>]
<%id=rs("id")
rs.Close
set rs=nothing%></center>
<%
if request("action")="qs" then
Set rs=Server.CreateObject("ADODB.recordset")
 sql="select * from meetuser where reid="&request("id")&" and qshou=1 order by id asc"
rs.open sql,conn,1
i=0
j=0
%>
<div align="center"><br>
  <a href="qdqsdoc.asp?t=qs&id=<%=id%>" target="_blank">汇总签收情况</a><br>
</div>
<P> <font color="#0000FF">已签收单位名单位如下:</font> 
<table width="80%" border="0" cellpadding="0" cellspacing="0">
  <%do while not rs.EOF 
  '  if rs("qshou")=1 then
  i=i+1
  j=j+1%>
    <td><%=rs("name")%></td>
    <%if i mod 4 =0 then %>
     <tr>
    <%end if
   ' end if
    rs.MoveNext 
    loop%><%'if j>0 then%>共<%=j%>个<%'end if%>
     </table>
   <%rs.close
   sql="select * from meetuser where reid="&request("id")&" and qshou=0 order by id asc"
rs.open sql,conn,1
i=0
j=0
  ' rs.movefirst%>
   
<P> <font color="#FF0000">未签收单位名单位如下:</font> 
<table width="80%" border="0" cellpadding="0" cellspacing="0">
  <%i=0
  j=0
  do while not rs.EOF 
 ' if rs("qshou")=0 then
  j=j+1
  i=i+1%>
    <td><%=rs("name")%></td>
    <%if i mod 4 =0 then %>
     <tr>
    <%end if
   ' end if
    rs.MoveNext 
    loop 
   ' if j>0 then%>
    共<%=j%>个<%'end if
     rs.close
    set rs=nothing
    %>
     </table>
     
<% end if
   
    %>
<%if request("action")="qd" then
Set rs=Server.CreateObject("ADODB.recordset")

 sql="select * from meetuser where reid="&request("id")&" and qdao=1 order by id asc"
rs.open sql,conn,1
i=0
j=0
%>
<div align="center"><br>
  <a href="qdqsdoc.asp?t=qd&id=<%=id%>" target="_blank">汇总签到情况</a><br>
</div>
<P> <font color="#0000FF">已签到单位名单位如下:</font> 
<table width="80%" border="0" cellpadding="0" cellspacing="0">
  <%do while not rs.EOF 
 '   if rs("qshou")=1 then
  i=i+1
  j=j+1%>
    <td><%=rs("name")%></td>
    <%if i mod 4 =0 then %>
     <tr>
    <%end if
  '  end if
    rs.MoveNext 
    loop
    rs.close
   ' if j>0 then%>共<%=j%>个<%'end if
    %>
     </table>
   <%sql="select * from meetuser where reid="&request("id")&" and qdao=0 order by id asc"
rs.open sql,conn,1
i=0
j=0
   
   
 '  rs.movefirst%>
   
<P> <font color="#FF0000">未签到单位名单位如下:</font> 
<table width="80%" border="0" cellpadding="0" cellspacing="0">
  <%i=0
  j=0
  do while not rs.EOF 
 ' if rs("qshou")=0 then
  i=i+1
  j=j+1%>
    <td><%=rs("name")%></td>
    <%if i mod 8 =0 then %>
     <tr>
    <%end if
   ' end if
    rs.MoveNext 
    loop%>
    共<%=j%>个<%
     rs.close
    set rs=nothing
    %>
     </table>
     <% end if
   
    %>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -