一种比较方便的ASP分页程序

【 tulaoshi.com - ASP 】

<span class="style45"
<%
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("sap_mis.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath

set rs = server.createobject("adodb.recordset")
sql = "select sap_adon_record.* from sap_adon_record order by s_id desc"
rs.open sql, conn, 1, 1
%
  </span
  <table width="98%" height="10" border="1" align="center" cellpadding="0" cellspacing="0"  bordercolor="#336699" bordercolordark="#FFFFFF" class="style45"

<%if rs.EOF then%
                <tr
                    <td align="center"<span style="color: #339933"<a href="add.asp"系统中暂时没有记录，请点击此处添加！</a</span
                    </td
                </tr
<%else%
  <tr
      <td align="center" bgcolor="#f000ff" class="style45"111</td
      <td align="center" bgcolor="#f000ff" class="style45"222</td
      <td align="center" bgcolor="#f000ff" class="style45"333</td
      <td align="center" bgcolor="#f000ff" class="style45"444</td
      <td align="center" bgcolor="#f000ff" class="style45"555</td
      <td align="center" bgcolor="#f000ff" class="style45"666</td
      <td align="center" bgcolor="#f000ff" class="style45"777</td
  </tr
<%
shownum=20
totalrecord=rs.recordcount
rs.pagesize=shownum
maxpage=rs.pagecount

requestpage=clng(request.querystring("page"))

if requestpage="" or requestpage=0 then
   requestpage=1
end if
if resquestpagemaxpage then
    resquestpage=maxpage
end if

if not requestpage=1 then
rs.move (requestpage-1)*rs.pagesize
end if
for i=1 to rs.pagesize and not rs.bof% 
  <tr
      <td align="center" class="style45"<a href='show.asp?s_id=<%=rs("s_id")%' target="_blank"<%=rs("prname")%</a</td
      <td align="center" class="style45"<%=rs("trscod")%</td
      <td align="center" class="style45"<%=rs("crname")%</td
      <td align="center" class="style45"<%=rs("crdate")%</td
      <td align="center" class="style45"<%=rs("prtype")%</td
      <td align="center" class="style45"<%=rs("fction")%</td
      <td align="center" class="style45"<a href='edit.asp?s_id=<%=rs("s_id")%'编辑</a</td
  </tr
<%
rs.movenext
if rs.eof then exit for
next
%
</table
<table width="98%" height="10" align="center"  border="1"  bordercolor="#336699" bordercolordark="#FFFFFF" cellpadding="0" cellspacing="0"
                <tr
                    <td align="center" class="style45"<a href=add.asp添加记录</a   |   <a href=readExcel.asp target="_self"EXCEL文件批量导入</a   |&nbs