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

1<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

1</span>

1<table align="center" border="1" bordercolor="#336699" bordercolordark="#FFFFFF" cellpadding="0" cellspacing="0" class="style45" height="10" width="98%">

if rs.EOF then

1<tr>
2<td align="center"><span style="color: #339933"><a href="add.asp">系统中暂时没有记录，请点击此处添加！</a></span>
3</td>
4</tr>   

else

1<tr>
2<td align="center" bgcolor="#f000ff" class="style45">111</td>
3<td align="center" bgcolor="#f000ff" class="style45">222</td>
4<td align="center" bgcolor="#f000ff" class="style45">333</td>
5<td align="center" bgcolor="#f000ff" class="style45">444</td>
6<td align="center" bgcolor="#f000ff" class="style45">555</td>
7<td align="center" bgcolor="#f000ff" class="style45">666</td>
8<td align="center" bgcolor="#f000ff" class="style45">777</td>
9</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 resquestpage>maxpage 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

 1<tr>
 2<td align="center" class="style45"><a href='show.asp?s_id=```
 3=rs("s_id")
 4```' target="_blank">```
 5=rs("prname")
 6```</a></td>
 7<td align="center" class="style45">```
 8=rs("trscod")
 9```</td>
10<td align="center" class="style45">```
11=rs("crname")
12```</td>
13<td align="center" class="style45">```
14=rs("crdate")
15```</td>
16<td align="center" class="style45">```
17=rs("prtype")
18```</td>
19<td align="center" class="style45">```
20=rs("fction")
21```</td>
22<td align="center" class="style45"><a href='edit.asp?s_id=```
23=rs("s_id")
24```'>编辑</a></td>
25</tr>   

rs.movenext
if rs.eof then exit for
next

1</table>

1<table align="center" border="1" bordercolor="#336699" bordercolordark="#FFFFFF" cellpadding="0" cellspacing="0" height="10" width="98%">
2<tr>
3<td align="center" class="style45"><a href="add.asp">添加记录</a> | <a href="readExcel.asp" target="_self">EXCEL文件批量导入</a> | <a href="srch.asp">高级查询</a>
4</td>
5</tr>
6<tr>
7<td align="center">
8<span class="style45">   

if requestpage-1 mod 10=0 then
p=(requestpage-1) \ 10
else
p=(requestpage-1) \ 10
end if
if requestpage=1 then
response.write "<font #ff0000""="" color="" face="webdings">9</font>"
else
response.write "<a href="index.asp?page=1" title="首页"><font face="webdings">9</font></a>"
end if
if p10&gt;0 then response.write "<a href='index.asp?page="&amp;p10&amp;"' title="上十页"><font face="webdings">7</font></a>"
response.write "<b>"
for ii=p10+1 to P10+10
if ii=requestpage then
response.write "<font #ff0000""="" color="">"ⅈ&amp;"</font> "
else
response.write "<a href='index.asp?page="&amp;ii&amp;"'>"ⅈ&amp;"</a> "
end if
if ii=maxpage then exit for
next
response.write "</b>"
if ii<maxpage "<a="" href='index.asp?page="&amp;ii&amp;"' response.write="" then="" title="下十页"><font face="webdings">8</font>"
if requestpage=maxpage then
response.write "<font #ff0000""="" color="" face="webdings">:</font> "
else
response.write "<a href='index.asp?page="&amp;maxpage&amp;"' title="尾页"><font face="webdings">:</font></a>"
end if
response.write" 总共有"&amp;maxpage&amp;"页 共"&amp;totalrecord&amp;"个记录 每页"&amp;shownum&amp;"个"
end if

1</maxpage></span></td>
2</tr>
3</table>

1<span class="style45">   

rs.close
set rs = nothing
conn.close
set conn = nothing