📄 managefile.asp
字号:
<html>
<head>
<title>∷公文传输系统|电子公文交换系统|文件传输系统|办公自动化系统|公文管理系统|文档管理软件|公文上报系统|政务信息上报系统 ——智元软件</title>
<META name="keywords" content="公文传输系统 电子公文交换系统 企业文档传输系统 文件传输系统 办公自动化系统 公文管理系统 企业文档管理软件 公文上报系统 政务信息上报系统 智元软件">
<META content="智元软件公文传输系统实现党政机关企事业单位部门与部门之间，单位与单位之间公文上报和下发。我们致力于为您提供操作简便、直观实用、价格便宜的公文交换软件，可直接在线或下载试用，每套系统仅售1200元。上百家成功应用客户案例和我们诚信专业完善的售后服务，是您信任我们的基础。" name="description">
<LINK href="img/Forum.css" type=text/css rel=stylesheet>
<!--#include file="asp/opendb.asp"-->
<!--#include file="asp/checkuser.asp"-->
<!--#include file="asp/top.asp"-->
<%
set conn=opendb("oabusy","conn","accessdsn")
if request("detel")="删除" and request("delid")<>"" then
count=0
condition=""
condition2=""
for each idno in request("delid")
count=count+1
condition=condition+"id=" & idno
condition2=condition2+"reid=" & idno
if count<request("delid").count then
condition=condition+" or "
condition2=condition2+" or "
end if
next
'删除数据库中的记录
sql = "delete * from filedata where " & condition
conn.Execute sql
sql="delete * from fileuser where " & condition2
conn.execute sql
Response.Redirect "managefile.asp"
end if
%>
</head>
<body topmargin="5" leftmargin="0">
<center>
<table>
<tr>
<td><b>文件管理</b></td>
</tr>
</table>
</center>
<center>
<%
Set rs=Server.CreateObject("ADODB.recordset")
if instr(1,"||supermanage|chksuper|",oabusyuserpower)>1 then
sql="select * from filedata order by id desc"
else
sql="select * from filedata where manageman='"&oabusyusername&"' order by id desc"
end if
rs.open sql,conn,1
if not rs.eof and not rs.bof then
rs.pagesize=30
page=request("page")
if not isnumeric(page) then
page=1
end if
page=clng(page)
if err.number<>0 then
page=1
end if
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
href="managefile.asp"
rs.absolutepage=page
%>
<br>
<form method="post" action="<%=href%>?page=<%=page%>">
<table width="95%" border="0" bgcolor="#cccccc" cellpadding="1" cellspacing="0" align="center">
<tr>
<td>
<table width="100%" border="0" bgcolor="#FFFFFF" cellpadding="1" cellspacing="2">
<tr bgcolor="#CCCCCC">
<td align="center">
<input type="submit" value="删除" name="detel" onclick="return window.confirm('你确定要删除该文件吗？');" style="border:1 solid #000000;background:#ffcc66">
</td>
<td align=center><b>文件名称</b></td>
<td align=center>
<div align="center"><b>文件类型</b></div>
</td>
<td width="80" align=center><b>发布单位</b></td>
<td align=center><b>发布时间</b></td>
<td align=center><b>签收情况</b></td>
<td width="50" align=center><b>操作</b></td>
</tr>
<%
for ipage=1 to rs.pagesize
if color then
bg="#eeeeee"
else
bg="#ffffff"
end if
%>
<tr bgcolor="<%=bg%>">
<td align="center">
<input type="checkbox" name="delid" value=<%=rs("id")%>>
</td>
<td><%=rs("title")%> </td>
<td width="94">
<div align="center"><%=rs("typename")%> </div></td>
<td>
<div align="center"><%=rs("fbdw")%></div></td>
<td>
<div align="center"><%=rs("jointime")%></div> </td>
<td>
<div align="center"><a href="javascript:openScript1('fileqs.asp?action=ok&id=<%=rs("id")%>',500,500)">查看</a> </div> </td>
<td align="center"><a href='modifyfile.asp?id=<%=rs("id")%>'>修改</a></td>
</tr>
<%
rs.movenext
color=not color
if rs.eof then exit for
next
%>
</table> </table> </table>
<input type="hidden" name="page" value="<%=page%>">
</form>
<table border=0 width=550>
<tr><form action=<%=href%> method=get>
<td align="center">
<%
response.write "<a href=" & href & "?page=1>第一页</a>"
%>
</td>
<td align="center">
<%
response.write "<a href=" & href & "?page=" & (page-1) & ">上一页</a>"
%>
</td>
<td align="center">
<%
response.write "<a href=" & href & "?page=" & (page+1) & ">下一页</a>"
%>
</td>
<td align="center">
<%
response.write "<a href=" & href & "?page=" & rs.pagecount & ">最后一页</a> 现在第"&page&"页"
%>
</td>
</form></tr></table><br>
<%
else
%>
<br><br><br>
<table border="0" cellpadding="0" cellspacing="0" width="400">
<tr>
<td width="400" align="center"><font size="4" color="red">对不起,没有相关纪录</font></td></tr></table>
<%
end if
rs.Close
set rs=nothing
conn.close
set conn=nothing
%>
</center>
</body>
</html><!--#include file="footer.htm"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -