가장 간단한 ASP 페이징 코드

： ： http : //bbs.bccn.net/thread-90981-1-1.html

<%

set conn = server.createobject (adodb.connection)

conn.open (드라이버 = 드라이버 do microsoft ac

set rs = server.createobject (adodb.recordset)

SQL = 학생에서 선택 *을 선택하십시오

Rs. Open SQL, Conn, 3

Rs.Pagesize = 20

요청 (page) <>라면

epage = cint (요청 (페이지))

epage <1이면 epage = 1입니다

epage> rs.pagecount 인 경우 epage = rs.pagecount

또 다른

epage = 1

끝 If

Rs.AbsolutePage = Epage

%>

<테이블 테두리 = 0 CellPadding = 0 CellSpacing = 1 bgcolor =#0000ff 너비 = 80% 정렬 = 중심>

<tr bgcolor =#ffffff align = center>

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

</tr>

<%

i = 0 ~ rs.pagesize-1의 경우

rs.bof 또는 rs.eof 인 경우 종료하십시오

%>

<tr bgcolor =#ffffff align = center>

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

</tr>

<%

rs.movenext ()

다음

%>

</테이블>

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

%>

***************************************************************************************** 누군가 ***

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

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