disp.asp

来自「欢迎您使用审批系统!该系统主要面向银行内部人员,但也为客户提供一些信息." 登陆」· ASP 代码 · 共 44 行

ASP
44
字号
<!--#include file="ShowOnePage.asp"-->
<!--#include file="ShowOneItem.asp"-->
<html>
<head>
<title>浏览留言簿</title>
</head>

<body text="#000000" bgcolor="#ffffff">
<h2 align="center">浏览留言簿</h2>

<hr width="100%">
<%

    sql="select * from MessageData order by 时间 desc"
     set conn=Open_database(server.mappath("message.mdb"),"conn")
     
     set rs=open_RsAndPageSize(conn,sql,"rs",5)
       Page=clng(Request("Page"))
    
   if Page>rs.PageCount then page=rs.pagecount
   if Page< 1 then Page=1

   ShowOnePage  rs,Page
%>

<form action="Disp.asp" method="GET" align="right">
  <a HERF="Message.htm">返回留言表单</a>
<%
    if Page <> 1 then
       Response.write"<a herf=disp.asp?Page=1>第一页</a> "
       Response.write"<a herf=disp.asp?Page=" & ">上一页</a> "
    end if
    
    if Page<>rs.PageCount then
      Response.write"<a herf=disp.asp?page=" & (page+1) & ">下一页</a>"
      Response.write"<a herf=disp.asp?page=" & rs.pagecount & "> 最后一页</a>"
    end if
%>

第<font color="red"><%=page%></font>页 / 
共<font color="red"><%=rs.PageCount%></font>页</p>
</form>
</body>
</html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?