📄 filemanage.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="adovbs.inc" -->
<!--#include file ="auto.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="refresh" content="3;tongzhifabu.asp">
<title>信息发布</title>
<style type="text/css">
<!--
table {
font-family: Arial, Helvetica, sans-serif;
font-size: 12px;
color: #000000;
font-style: normal;
text-align: center;
}
#title {
font-size: 24px;
}
#di{
text-align:right;
font-family:Arial, Helvetica, sans-serif;
font-size:12px
}
.style2 {font-family: "华文中宋", "宋体"; }
-->
</style>
</head>
<body>
<%
if session("position")="mishu" or session("position")="jingli" or session("position")="zhuren"then
set RS = server.CreateObject("ADODB.Recordset")
Sname = "SELECT * FROM sfile WHERE fjr='"&Session("Rname")&"' ORDER BY fbshj"
RS.open Sname , CN,1,3
%>
<br>
<br>
<table width="521" border="0" cellspacing="1" bgcolor="#336699" cellpadding="0" align="center">
<tr>
<th colspan="7" background="picture/tile.gif"><div class="style2" id="title" ><font size="3">已发文件</font></strong></div></th>
</tr>
<tr>
<td width="28" bgcolor="#FFFFFF">序号</td>
<td width="134" bgcolor="#FFFFFF">标题</td>
<td width="57" bgcolor="#FFFFFF">审批人</td>
<td width="88" bgcolor="#FFFFFF" >发布时间</td>
<td width="72" bgcolor="#FFFFFF">状态</td>
<td width="61" bgcolor="#FFFFFF">审批时间</td>
<td width="73" bgcolor="#FFFFFF">操作</td>
</tr>
<% if not RS.eof then
set rs3=nothing
sqlstr="select Name from Message where ID='" & RS("spr") &"'"
set rs3=CN.execute(sqlstr)
RS.movefirst
RS.pagesize=5
page=CLng(Request("page"))
if page<1 then page=1
RS.absolutepage=page
for i=1 to RS.pagesize
if RS.eof then
exit for
end if
%>
<tr><td height="30" bgcolor="#FFFFFF">
<%response.Write(RS("id"))%>
</td><td bgcolor="#FFFFFF"><a href="#" onClick="JavaScript:window.open('filenr.asp?ID=<%=RS("id") %>','','width=570,height=250,top=150,left=150')">
<%response.Write(RS("biaoti"))%>
</a></td><td bgcolor="#FFFFFF">
<%response.write(rs3("Name"))%>
</td><td bgcolor="#FFFFFF">
<%response.Write(RS("fbshj"))%>
</td>
<td bgcolor="#FFFFFF">
<%
if RS("zhuangtai")=true then
response.Write("已审批")
else
response.write("未审批")
end if
%>
</td>
<td bgcolor="#FFFFFF"><%response.Write(RS("spshj"))%></td>
<td bgcolor="#FFFFFF">
<%
if RS("zhuangtai")=1 then
response.Write"无权删除"
else
%>
<input type="button" name="Submit2" value="删除" onClick="JavaScript:window.open('filedel.asp?ID=<%=RS("id") %>','','width=200,height=100,top=150,left=350')">
<%
end if
%>
</td></tr>
<%
if not RS.eof then
RS.movenext
else
exit for
end if
next
'RS.close
%>
<tr >
<th height="27" colspan="7" background="picture/tile.gif">
<div id="di"><input name="fileadd" type="button" id="addtongzhi" value="发文件" onClick="JavaScript:window.open('fileadd.asp','','width=620,height=250,top=150,left=150')">
<% if page<>1 then %>当前<%=page%>页<a href=<%=path%>?page=1 >第一页</a>
<a href=<%=path%>?page=<%=(page-1)%>>上一页</a>
<%end if
if page<>RS.pagecount then %>当前<%=page1%>页
<a href=<%=path%>?page=<%=(page+1)%> >下一页</a>
<a href=<%=path%>?page=<%=RS.pagecount%> >最后一页</a>
<%end if %>
</div></th>
</tr>
<% rs3.close
else
RS.close
%>
<tr>
<td height="22" colspan='7' bgcolor="#FFFFFF">没有已发文件</td>
</tr>
<tr >
<th height="21" colspan="7" bgcolor="#FFFFFF">
<div id="di"><input name="fileadd" type="button" id="fileadd" value="发文件" onClick="JavaScript:window.open('fileadd.asp','','width=620,height=250,top=150,left=150')">
</div></th>
</tr>
<%
end if
end if
%>
</table>
<br>
<%
if session("position")="jingli" or session("position")="zhuren"then
set RS = server.CreateObject("ADODB.Recordset")
Sname = "SELECT * FROM sfile WHERE spr='"&Session("Rname")&"' ORDER BY fbshj "
RS.open Sname , CN,1,3
%>
<table width="524" border="0" cellspacing="1" bgcolor="#336699" cellpadding="0" align="center">
<tr>
<th colspan="7" background="picture/tile.gif"><div class="style2" id="title" ><font size="3">已收文件</font></strong></div></th>
</tr>
<tr>
<td width="28" bgcolor="#FFFFFF">序号</td>
<td width="107" bgcolor="#FFFFFF">标题</td>
<td width="65" bgcolor="#FFFFFF">发件人</td>
<td width="62" bgcolor="#FFFFFF" >发布时间</td>
<td width="86" bgcolor="#FFFFFF">状态</td>
<td width="72" bgcolor="#FFFFFF">审批时间</td>
<td width="96" bgcolor="#FFFFFF">操作</td>
</tr>
<% if not RS.eof then
sqlstr="select Name from Message where ID='" & RS("fjr") &"'"
set rs4=CN.execute(sqlstr)
RS.movefirst
RS.pagesize=5
page=CLng(Request("page"))
if page<1 then page=1
RS.absolutepage=page
for i=1 to RS.pagesize
if RS.eof then
exit for
end if
%>
<tr><td height="30" bgcolor="#FFFFFF">
<%response.Write(RS("id"))%>
</td><td bgcolor="#FFFFFF"><a href="#" onClick="JavaScript:window.open('filenr.asp?ID=<%=RS("id") %>','','width=570,height=250,top=150,left=150')">
<%response.Write(RS("biaoti"))%>
</a></td><td bgcolor="#FFFFFF">
<%response.write(rs4("Name"))%>
</td><td bgcolor="#FFFFFF">
<%response.Write(RS("fbshj"))%>
</td>
<td bgcolor="#FFFFFF">
<% if RS("zhuangtai")=true then
response.Write("已审批")
else
%>
<input type="button" name="Submit2" value="审批" onClick="JavaScript:window.open('filesp.asp?ID=<%=RS("id") %>','','width=200,height=100,top=150,left=350')">
<%
end if
%>
</td>
<td bgcolor="#FFFFFF"><%response.Write(RS("spshj"))%></td>
<td bgcolor="#FFFFFF"><input type="button" name="Submit2" value="删除" onClick="JavaScript:window.open('filedel.asp?ID=<%=RS("id") %>','','width=200,height=100,top=150,left=350')">
</td></tr>
<%
if not RS.eof then
RS.movenext
else
exit for
end if
next
'RS.close
%>
<tr >
<th height="27" colspan="7" background="picture/tile.gif">
<div id="di">
<% if page<>1 then %>当前<%=page%>页<a href=<%=path%>?page=1 >第一页</a>
<a href=<%=path%>?page=<%=(page-1)%>>上一页</a>
<%end if
if page<>RS.pagecount then %>当前<%=page1%>页
<a href=<%=path%>?page=<%=(page+1)%> >下一页</a>
<a href=<%=path%>?page=<%=RS.pagecount%> >最后一页</a>
<%end if %>
</div></th>
</tr>
<%rs4.close
else
%>
<tr>
<td height="22" colspan='7' bgcolor="#FFFFFF">没有已发文件</td>
</tr>
<%
RS.close
%>
<%
end if
end if
%>
</table>
<br>
<%if session("position")="yuangong" then
set RS = server.CreateObject("ADODB.Recordset")
Sname = "SELECT * FROM sfile WHERE part='"&Session("part")&"' ORDER BY fbshj "
RS.open Sname , CN,1,3
%>
<table width="527" border="0" cellspacing="1" bgcolor="#336699" cellpadding="0" align="center">
<tr>
<th colspan="6" background="picture/tile.gif"><div class="style2" id="title" ><font size="3">已收文件</font></strong></div></th>
</tr>
<tr>
<td width="35" bgcolor="#FFFFFF">序号</td>
<td width="110" bgcolor="#FFFFFF">标题</td>
<td width="109" bgcolor="#FFFFFF">发件人</td>
<td width="86" bgcolor="#FFFFFF" >发布时间</td>
<td width="73" bgcolor="#FFFFFF">审批人</td>
<td width="107" bgcolor="#FFFFFF">审批时间</td>
</tr>
<% if not RS.eof then
RS.movefirst
RS.pagesize=5
page=CLng(Request("page"))
if page<1 then page=1
RS.absolutepage=page
for i=1 to RS.pagesize
if RS.eof then
exit for
end if
sqlstr="select Name from Message where ID='" & RS("spr") &"'"
set rs3=CN.execute(sqlstr)
sqlstr="select Name from Message where ID='" & RS("fjr") &"'"
set rs4=CN.execute(sqlstr)
%>
<tr><td height="30" bgcolor="#FFFFFF">
<%response.Write(RS("id"))%>
</td><td bgcolor="#FFFFFF"><a href="#" onClick="JavaScript:window.open('filenr.asp?ID=<%=RS("id") %>','','width=570,height=250,top=150,left=150')">
<%response.Write(RS("biaoti"))%>
</a></td><td bgcolor="#FFFFFF">
<%response.write(rs4("Name"))%>
</td><td bgcolor="#FFFFFF">
<%response.Write(RS("fbshj"))%>
</td>
<td bgcolor="#FFFFFF"><%response.write(rs3("Name"))%></td>
<td bgcolor="#FFFFFF"><%response.Write(RS("spshj"))%></td>
</tr>
<%
if not RS.eof then
RS.movenext
else
exit for
end if
next
'RS.close
%>
<tr >
<th height="27" colspan="6" background="picture/tile.gif">
<div id="di">
<% if page<>1 then %>当前<%=page%>页<a href=<%=path%>?page=1 >第一页</a>
<a href=<%=path%>?page=<%=(page-1)%>>上一页</a>
<%end if
if page<>RS.pagecount then %>当前<%=page1%>页
<a href=<%=path%>?page=<%=(page+1)%> >下一页</a>
<a href=<%=path%>?page=<%=RS.pagecount%> >最后一页</a>
<%end if %>
</div></th>
</tr>
<%rs3.close
rs4.close
else
%>
<tr>
<td height="22" colspan='6' bgcolor="#FFFFFF">没有已发文件</td>
</tr>
<%
RS.close
%>
<tr >
<th height="21" colspan="6" bgcolor="#FFFFFF">
<div id="di">
</div></th>
</tr>
<%
end if
end if
%>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -