Der einfachste ASP -Paging -Code

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

<%

Setzen Sie conn = server.createObject (adodb.Connection)

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

Setzen Sie rs = server.createObject (adodb.Recordset)

SQL = SELECT * vom Schüler

Rs.open SQL, Conn, 3

Rs.PageSize = 20

Wenn Anfrage (Seite) <> dann

epage = cint (request (Seite))

Wenn epage <1 dann epage = 1

Wenn epage> rs.pagecount dann epage = rs.pagecount

anders

Epage = 1

Ende wenn

Rs.absolutepage = Epage

%>

<Table Border = 0 CellPadding = 0 Cellspacing = 1 bgcolor =#0000ff Breite = 80% Align = Center>

<tr bgcolor =#ffffff align = center>

<Th> <%= rs (0) .Name%> </th> <th> <%= Rs (1) .Name%> </th> <%= Rs (2) .Name%> </th>

</tr>

<%

für i = 0 bis rs.pageSize-1

Wenn Rs.Bof oder Rs.eof dann beenden Sie für

%>

<tr bgcolor =#ffffff align = center>

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

</tr>

<%

rs.movenext ()

nächste

%>

</table>

<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 ()

%>

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

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

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