📄 manage.asp
字号:
<!--#include file="conn.inc"-->
<%
if request.cookies("passwd")="" then
response.redirect "login.asp"
end if
sql="select * from document order by d_date desc"
rs.open sql,conn,3,2
dim i
%>
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Language" CONTENT="zh-cn">
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<META NAME="GENERATOR" CONTENT="Microsoft FrontPage 4.0">
<META NAME="ProgId" CONTENT="FrontPage.Editor.Document">
<TITLE>公文管理——管理员界面</TITLE>
<STYLE>
p, td, input, select { font-size: 9pt }
.button01 { background-color: #D0D7AF; border: 1 solid #999966 }
A:visited {TEXT-DECORATION: none;color:#000000}
A:active {TEXT-DECORATION: none;color:#ff0000}
A:hover {TEXT-DECORATION: underline;color:#ff0000}
A:link {TEXT-DECORATION: none;color:#000000}
</STYLE>
<script language=javascript>
function popwin(id)
{window.open("edit.asp?id="+id+"","","height=480,width=440,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");
}
function popwin0(id)
{window.open("action_del.asp?id="+id+"","","height=480,width=440,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");
}
function popwin1()
{window.open("add_doc.asp","","height=480,width=440,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");
}
function popwin2()
{window.open("p_zi.asp","","height=480,width=440,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");
}
function popwin3()
{window.open("r_zi.asp","","height=480,width=440,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");
}
function popwin4()
{window.open("mima.asp","","height=260,width=440,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");
}
function popwin5(id)
{window.open("chuanyd.asp?id="+id+"","","");
}
function popwin6(id)
{window.open("fawq.asp?id="+id+"","","");
}
function popwin7()
{window.open("step1.asp","","");
}
</script>
</HEAD>
<BODY BGCOLOR="#EAEDDC">
<TABLE BORDER="0" WIDTH="100%">
<TR>
<TD WIDTH="100%">
<P ALIGN="left"><INPUT TYPE="button" VALUE=" 添加文件 " ONCLICK="popwin1()" NAME="B3" CLASS="button01"> <INPUT TYPE="button" VALUE="发文“字”维护" ONCLICK="popwin2()" NAME="B3" CLASS="button01">
<INPUT TYPE="button" VALUE="收文“字”维护" ONCLICK="popwin3()" NAME="B3" CLASS="button01"> <INPUT TYPE="button" VALUE="管理员密码" ONCLICK="popwin4()" NAME="B3" CLASS="button01">
<INPUT TYPE="button" VALUE="卷内文件目录管理" ONCLICK="popwin7()" NAME="B3" CLASS="button01"></TR>
</TABLE>
<TABLE BORDER="0" WIDTH="100%" CELLSPACING="1" CELLPADDING="0" HEIGHT="25" BGCOLOR="#808000">
<TR HEIGHT="25">
<TD BGCOLOR="#D0D7AF" WIDTH="5%">
<P ALIGN="center">序号</P>
</TD>
<TD BGCOLOR="#D0D7AF" WIDTH="10%">
<P ALIGN="center">文件日期</P>
</TD>
<TD BGCOLOR="#D0D7AF" WIDTH="15%">
<P ALIGN="center">文件字号</P>
</TD>
<TD BGCOLOR="#D0D7AF" WIDTH="55%">
<P ALIGN="center">标题</P>
</TD>
<TD BGCOLOR="#D0D7AF" WIDTH="15%">
<P ALIGN="center">文件操作</P>
</TD>
</TR>
<%
on error resume next
rs.PageSize = 10
Page = CLng(Request("Page"))
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
i=page+(page-1)*9
rs.AbsolutePage = Page
For iPage = 1 To rs.PageSize
%>
<TR HEIGHT="25" BGCOLOR="#F2F2F2">
<TD>
<P ALIGN="center"><%=i%></TD>
<TD>
<P ALIGN="center"><%=rs("d_date")%></TD>
<TD>
<P ALIGN="center"><%=rs("zi")%>第<%=rs("hao")%>号</TD>
<TD>
<a href="/uploads/<%=rs("d_path")%>" target="_blank"><%=rs("title")%></a></TD>
<TD>
<P ALIGN="center">
<INPUT TYPE="button" VALUE="编辑" ONCLICK="popwin(<%=rs("id")%>)" NAME="B3" CLASS="button01">
<%
if rs("kind")="收文" then
%>
<INPUT TYPE="button" VALUE="传阅单" ONCLICK="popwin5(<%=rs("id")%>)" NAME="B3" CLASS="button01">
<%
else
%>
<INPUT TYPE="button" VALUE="发文签" ONCLICK="popwin6(<%=rs("id")%>)" NAME="B3" CLASS="button01">
<%
end if
%>
</P>
</TD>
</TR>
<%
rs.MoveNext
If rs.EOF Then Exit For
i=i+1
Next
%>
</TABLE>
<FORM ACTION="<%=Myself%>" METHOD="GET">
<DIV ALIGN="right">
<TABLE>
<TR>
<TD>
<P ALIGN="right">
<%If Page <> 1 Then ' 如果不是位于第一页%>
<A HREF="<%=Myself%>?s1=<%=request("s1")%>&s2=<%=request("s2")%>&Page=1">第一页</A> <A HREF="<%=Myself%>?s1=<%=request("s1")%>&s2=<%=request("s2")%>&Page=<%=(Page-1)%>">上一页</A>
<%
End If
If Page <> rs.PageCount Then ' 如果不是位于最后一页
%>
<A HREF="<%=Myself%>?s1=<%=request("s1")%>&s2=<%=request("s2")%>&Page=<%=(Page+1)%>">下一页</A> <A HREF="<%=Myself%>?s1=<%=request("s1")%>&s2=<%=request("s2")%>&Page=<%=rs.PageCount%>">最后一页</A>
<%End If%>
<FONT SIZE="2">输入页次:</FONT><INPUT NAME="Page" SIZE="3" CLASS="s01"> <FONT SIZE="2">页次:</FONT><FONT COLOR="Red" SIZE="2"><%=Page%>/<%=rs.PageCount%></FONT>
</FORM>
</TD>
</TR>
</TABLE>
</DIV>
</BODY>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -