📄 document.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>
<style type="text/css">
<!--
td { font-family: "宋体"; font-size: 9pt}
body { font-family: "宋体"; font-size: 9pt}
select { font-family: "宋体"; font-size: 9pt}
A {text-decoration: none; color: #336699; font-family: "宋体"; font-size: 9pt}
A:hover {text-decoration: underline; color: #FF0000; font-family: "宋体"; font-size: 9pt}
-->
</style>
</HEAD>
<!--#include file="asp/opendb.asp"-->
<!--#include file="asp/checkuser.asp"-->
<!--#include file="asp/checkqs.asp"-->
<BODY topMargin=0 rightMargin=0 leftMargin=0>
<div id="Layer1" style="position:absolute; width:354px; height:17px; z-index:1; left: 142px; top: 4px">
<%
'滚动显示未签收的文件或会议
if strmeet<>"" then
'Response.Write " <marquee scrolldelay=290>未签收的会议及文件:"&strmeet&"</marquee>"
end if%>
</div>
<%
'取得提交的文件类型
filetypename=request("typename")
'fbgtype表为文件类型表,该段功能为显示文件类型表中的所有文件类型
set conn=opendb("oabusy","conn","accessdsn")
sql="select * from fbgtype"
set rs=server.CreateObject("adodb.recordset")
rs.Open sql,conn,1
rs.Close
set rs=nothing
%>
<!--#include file="asp/top.asp"-->
<br>
<TABLE borderColor=#cccccc cellSpacing=0 borderColorDark=#ffffff cellPadding=0
width=90% align=center border=1>
<TBODY>
<TR>
<td align="left" valign="top">
<TABLE cellSpacing=1 cellPadding=0 width="100%" border=0 bgcolor="#cccccc">
<TR>
<TD noWrap width=110>类型:
<%
if filetypename="" then
Response.Write "<b>所有类型</b>"
else
Response.Write "<b>"&filetypename&"</b>"
end if
%>
</TD>
<TD align=right>
<TABLE cellSpacing=2 cellPadding=2 width="98%" align=right border=0 bgcolor="#cccccc">
<td align="right"><a href="document.asp?typename=<%=filetypename%>">刷新</a></TD>
</TR>
<tr>
<td align="right" height="30">
<%
'filedata 为存放文件相关数据表, 该段功能是根据不同用户来显示文件
set rs1=server.CreateObject("adodb.recordset")
sql="select * from filedata "
if filetypename<>"" then
sql=sql & "where typename='"&filetypename&"' "
end if
if instr(1,"||supermanage||chksuper|",oabusyuserpower)>1 then
'若用户为管理员,则显示所有文件
sql=sql &" order by id desc"
else
'非管理员,则显示与该用户有关的文件
if filetypename="" then
sql=sql &" where joinman like '%|"&oabusyusername&"|%' order by id desc"
else
sql=sql & " and joinman like '%|"&oabusyusername&"|%' order by id desc"
end if
end if
rs1.Open sql,conn,1
'判断是否有记录开始
if not rs1.EOF and not rs1.BOF then
'一页显示30条
rs1.PageSize =oabusyuserpagecount
curpage=cint(request("page"))
if curpage<1 then
curpage=1
end if
if curpage>=rs1.PageCount then
curpage=rs1.PageCount
end if
'分页显示
rs1.AbsolutePage =curpage
response.write "<div align=right>"
response.write "第" + cstr(curpage) + "页/总" + cstr(rs1.pagecount) + "页 "
response.write "每页" + cstr(oabusyuserpagecount) + "条/共" + cstr(rs1.recordcount) + "条 "
if curpage = 1 then
response.write "首页 前页 "
else
response.write "<a href='document.asp? typename="&filetypename&"&page=1'>首页</a> <a href='document.asp?typename="&filetypename&"&page=" + cstr(curpage-1) + "'>前页</a> "
end if
if curpage = rs1.pagecount then
response.write "后页 末页 "
else
response.write "<a href='document.asp?typename="&filetypename&"&page=" + cstr(curpage+1) + "'>后页</a> <a href='document.asp?typename="&filetypename&"&page=" + cstr(rs1.pagecount) + "'>末页</a>"
end if
%>
</TD>
</TR>
</TABLE>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<%
count=0
color=false
do while not rs1.EOF and count<rs1.PageSize
if color then
bg="#eeeeee"
else
bg="#ffffff"
end if
response.write" <tr bgcolor="&bg&" height='30'><td width='90%'>"
Response.Write "<img src='img/dd.gif' align=middle><font size=2>["&rs1("typename")&"]</font>"
Response.Write "<a href=javascript:MM_openBrWindow('showdocument.asp?id="&rs1("id")&"','_blank','0')><font size=2><b>"&rs1("title")&"</b></font></a>"
Response.write "<font color='#999999'>("&rs1("fbdw")&","&rs1("jointime")&")</font></a> "
if (instr(1,"||supermanage||chksuper|",oabusyuserpower)<2) and rs1("manageman")<>oabusyusername then
set rs2=server.CreateObject("adodb.recordset")
sql="select id,qshou from fileuser where reid ="&rs1("id")&" and username='"&oabusyusername&"'"
rs2.Open sql,conn,1
if rs2("qshou")=0 then Response.Write "<img src='img\qsno.gif'>"
rs2.Close
set rs2=nothing
end if
Response.Write "</td> <td style='CURSOR: hand' align=right>"
if rs1("manageman")=oabusyusername or instr(1,"||supermanage||chksuper|",oabusyuserpower)>1 then
Response.Write "<a href=javascript:openScript1('fileqs.asp?id="&rs1("id")&"',500,400)><font color=#00a200>签收情况</font></a>"
end if
response.write"<img src='img/dd.gif' align=middle> <img src='img/dd.gif' align=middle></td></tr>"
rs1.MoveNext
color=not color
count =count+1
loop
'没有记录的else
else
Response.Write "</TD></TR></TBODY></TABLE></table></CENTER></DIV><p><center>"
Response.Write "没有文件"
end if
rs1.Close
set rs1=nothing
conn.close
set conn=nothing
%>
</table>
</TBODY>
</TABLE>
<P>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
<TBODY>
<TR>
<TD>
<P align=center></P></TD></TR>
<TR vAlign=center>
<TD align=middle width="100%"><FONT face=宋体 color=navy><!--#include file="footer.htm"--></FONT></TD>
</TR></TBODY></TABLE></P></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -