Kode paging asp paling sederhana

原帖及讨论 ： http: //bbs.bccn.net/thread-90981-1-1.html

<%

Set Conn = Server.CreateObject (AdodB.Connection)

conn.open (driver = driver do microsoft access (*.mdb); uid = admin; pwd =; dbq = & server.mappath (1.mdb))

Set RS = Server.CreateObject (ADODB.Recordset)

SQL = Pilih * dari siswa

Rs.open SQL, Conn, 3

rs.pageSize = 20

Jika permintaan (halaman) <> lalu

epage = cint (request (halaman))

Jika epage <1 maka epage = 1

Jika epage> rs.pagecount maka epage = rs.pagecount

kalau tidak

Epage = 1

akhiri jika

rs.Absolutepage = epage

%>

<Border Table = 0 CellPadding = 0 CellSpacing = 1 BGColor =#0000ff Lebar = 80% Align = Center>

<tr bgcolor =#ffffff align = center>

<th> <%= rs (0) .NAME%> </t t th> <%= rs (1) .Name%> </t t th> <%= rs (2) .Name%> </th>

</tr>

<%

untuk i = 0 hingga rs.pageSize-1

Jika rs.bof atau rs.eof maka keluar untuk

%>

<tr bgcolor =#ffffff align = center>

<td> <%= rs (0) .value%> </td> <td> <%= rs (1) .value%> </td> <td> <%= rs (2) .value%> </td>

</tr>

<%

rs.movenext ()

Berikutnya

%>

</boable>

<p align = center>

<a href => 首页 </a> & nbsp;

<a href = index.asp? page = <%= epage-1%>> 前一页 </a> & nbsp;

<a href = index.asp? page = <%= epage+1%>> 后一页 </a> & nbsp;

<a href = index.asp? page = <%= rs.pagecount%>> 末页 </a>

</p>

<p align = center> 现在是第 <%= epage%> 页一页一 有 <%= rs.pagecount%> 页 </p>

<%

conn.close ()

%>

********************************************** ***

表有三个字段, 表明为 siswa 其他的就不需要改了, 那个 halaman 也可以改一下, 如果记录少的话.

如果谁有更简单的, 请贴上来, 大家一起研究.