Le code de pagination ASP le plus simple

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

<%

Définir 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 = SELECT * FROM Student

Rs.Open SQL, Conn, 3

Rs.PageSize = 20

Si demande (page) <> alors

epage = Cint (demande (page))

Si Epage <1 alors Epage = 1

Si Epage> Rs.PageCount alors Epage = Rs.PageCount

autre

Epage = 1

terminer si

Rs.Absolutepage = Epage

%>

<Table Border = 0 CELLPADDING = 0 CELLSPACINE = 1 BGCOLOR = # 0000FF Largeur = 80% Align = Center>

<tr BgColor = # ffffff align = Center>

<h> <% = rs (0) .name%> </th> <th> <% = rs (1) .name%> </th> <th> <% = rs (2) .name%> </th>

</tr>

<%

pour i = 0 à Rs.PageSize-1

Si Rs.Bof ou Rs.Eof, sortez pour

%>

<tr BgColor = # ffffff align = Center>

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

</tr>

<%

Rs.movEnext ()

suivant

%>

</ table>

<p align = centre>

<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 = centre> 现在是第 <% = epage%> 页一 页一 有 <% = Rs.pageCount%> 页 </p>

<%

Conn.close ()

%>

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

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

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