📄 list_result.asp
字号:
<!--#include file="conn.inc"-->
<%
kind=request("kind")
zi=request("zi")
d1_date=request("d1_date")
d2_date=request("d2_date")
author=request("author")
title=request("title")
if kind="" then
kind="%"
end if
if zi="" then
zi="%"
end if
if d1_date="" then
d1_date=cdate("1753-1-1")
end if
if d2_date="" then
d2_date=cdate("9999-12-31")
end if
if author="" then
author="%"
end if
if title="" then
title="%"
end if
sql="select * from document where kind like '"&kind&"' and zi like '"&zi&"' and year(d_date) between "&d1_date&" and "&d2_date&" and author like '"&author&"' and title like '"&title&"'"
rs.open sql,conn,3,2
%>
<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>
</HEAD>
<BODY BGCOLOR="#EAEDDC">
<TABLE><TR><TD>
以下是您查询的结果：
</TD></TR></TABLE>
<TABLE BORDER="0" WIDTH="100%" CELLSPACING="1" CELLPADDING="0" HEIGHT="25" BGCOLOR="#808000">
<TR HEIGHT="25">
<TD BGCOLOR="#D0D7AF">
<P ALIGN="center">序号</P>
</TD>
<TD BGCOLOR="#D0D7AF">
<P ALIGN="center">文件作者</P>
</TD>
<TD BGCOLOR="#D0D7AF">
<P ALIGN="center">文件编号</P>
</TD>
<TD BGCOLOR="#D0D7AF">
<P ALIGN="center">文件日期</P>
</TD>
<TD BGCOLOR="#D0D7AF">
<P ALIGN="center">标题</P>
</TD>
</TR>
<%
on error resume next
i=1
rs.PageSize = 10
Page = CLng(Request("Page"))
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
rs.AbsolutePage = Page
For iPage = 1 To rs.PageSize
%>
<TR HEIGHT="25" BGCOLOR="#F2F2F2">
<TD>
<P ALIGN="center"><%=i%></TD>
<TD>
<%=rs("author")%></TD>
<TD>
<%=rs("zi")%>字第<%=rs("hao")%>号</TD>
<TD>
<P ALIGN="center"><%=rs("d_date")%></TD>
<TD>
<A HREF="uploads/<%=rs("d_path")%>" TARGET="_blank"><%=rs("title")%></A></TD>
</TR>
<%
rs.MoveNext
If rs.EOF Then Exit For
i=i+1
Next
%>
</TABLE>
<FORM ACTION="<%=Myself%>?kind=<%=request("kind")%>&zi=<%=request("zi")%>&d1_date=<%=d1_date%>&d2_date=<%=d2_date%>&author=<%=request("author")%>&title=<%=request("title")%>&" METHOD="GET">
<DIV ALIGN="right">
<TABLE>
<TR>
<TD>
<P ALIGN="right">
<%If Page <> 1 Then ' 如果不是位于第一页%>
<A HREF="<%=Myself%>?kind=<%=request("kind")%>&zi=<%=request("zi")%>&d1_date=<%=d1_date%>&d2_date=<%=d2_date%>&author=<%=request("author")%>&title=<%=request("title")%>&s1=<%=request("s1")%>&s2=<%=request("s2")%>&Page=1">第一页</A>
<A HREF="<%=Myself%>?kind=<%=request("kind")%>&zi=<%=request("zi")%>&d1_date=<%=d1_date%>&d2_date=<%=d2_date%>&author=<%=request("author")%>&title=<%=request("title")%>&s1=<%=request("s1")%>&s2=<%=request("s2")%>&Page=<%=(Page-1)%>">上一页</A>
<%
End If
If Page <> rs.PageCount Then ' 如果不是位于最后一页
%>
<A HREF="<%=Myself%>?kind=<%=request("kind")%>&zi=<%=request("zi")%>&d1_date=<%=d1_date%>&d2_date=<%=d2_date%>&author=<%=request("author")%>&title=<%=request("title")%>&s1=<%=request("s1")%>&s2=<%=request("s2")%>&Page=<%=(Page+1)%>">下一页</A>
<A HREF="<%=Myself%>?kind=<%=request("kind")%>&zi=<%=request("zi")%>&d1_date=<%=d1_date%>&d2_date=<%=d2_date%>&author=<%=request("author")%>&title=<%=request("title")%>&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 + -