📄 fileqs.asp
字号:
<html>
<head>
<title>∷公文传输系统|电子公文交换系统|文件传输系统|办公自动化系统|公文管理系统|文档管理软件|公文上报系统|政务信息上报系统 ——智元软件</title>
<META name="keywords" content="公文传输系统 电子公文交换系统 企业文档传输系统 文件传输系统 办公自动化系统 公文管理系统 企业文档管理软件 公文上报系统 政务信息上报系统 智元软件">
<META content="智元软件公文传输系统实现党政机关企事业单位部门与部门之间，单位与单位之间公文上报和下发。我们致力于为您提供操作简便、直观实用、价格便宜的公文交换软件，可直接在线或下载试用，每套系统仅售1200元。上百家成功应用客户案例和我们诚信专业完善的售后服务，是您信任我们的基础。" name="description">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="asp/opendb.asp"-->
<%
'页面主要作用是:显示单位文件的签收列表,签收与未签收在页面都在页面中显示
set conn=opendb("oabusy","conn","accessdsn")
Set rs=Server.CreateObject("ADODB.recordset")
'fileuser表存放每个收文单位的文件签收情况,reid为文件ID号,qshou=1为已签收,0为未签收
'action=ok为查看已签收单位,nook为查看未签收单位
'if request("action")="ok" then
' sql="select * from fileuser where reid="&request("id")&" and qshou=1"
'elseif request("action")="nook" then
' sql="select * from fileuser where reid="&request("id")&" and qshou=0"
'else
id=request("id")
sql="select manageman from filedata where id="&id
rs.Open sql,conn,1,1
manageman=rs("manageman")
rs.Close
sql="select * from fileuser where reid="&id&" order by id asc"
'end if
rs.Open sql,conn,1
if not rs.EOF and not rs.BOF then
%>
</head>
<BODY lang=ZH-CN style="TEXT-JUSTIFY-TRIM: punctuation; tab-interval: 21.0pt"
topMargin=2 rightMargin=0 background=img/bg.gif>
<!--#include file="asp/checkuser.asp"-->
<p><p><center><br>
<font size=4 color="#0000ff" ><b><%=rs("title")%><br>
<br>
</b></font>
</center><p>
<table border="0" width="90%" cellspacing="1">
<tr>
<td bgcolor="#FF9966"colspan="3"width="30%"><font size="2">
<p align="center" >收文单位
</font> </td>
<td bgcolor="#FF9966"width="30%">
<div align="center"><font size="2"> 签收情况</font> </div>
</td>
<td bgcolor="#FF9966">
<div align="center">签收时间</div>
</td>
</tr>
<tr>
<%
i=0
j=0
color=false
do while not rs.EOF
if color then
bg="#ffcc99"
else
bg="#ffffff"
end if
Response.Write "<tr bgcolor="&bg&"><td colspan=3><font size=2><p align=center>"
if rs("qshou")=1 or rs("username")=manageman 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=39% > <div align=center>"
if rs("qshou")=1 or rs("username")=manageman then
Response.Write "<font color='#00a200'>已签收</font>"
else
Response.write"<img src='img/qsno.gif'>"
end if
if rs("username")=manageman then
Response.Write "</div> </td><td width=29% align=center><font color='#00a200'>发布者</font><div align=center></div></td></tr>"
else
Response.Write "</div> </td><td width=29% >"&rs("qstime")&"<div align=center></div></td></tr>"
end if
rs.MoveNext
color=not color
loop
response.write "已签收单位共"&i&"个,未签收单位共"&j&"个"
Response.Write " <a href='javascript:window.close()'>关闭</a>"
'else
' if request("action")="nook" then
' Response.Write "<center><b>单位全部签收</b></center><br>"
' else
' Response.Write "<center><b>还没有单位签收</b></center><br>"
' end if
end if%>
</table>
</body>
<%
rs.Close
set rs=nothing
Conn.Close
set Conn = nothing
%>
<!--#include file="footer.htm"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -