: : 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 也可以改一下, 如果记录少的话.
如果谁有更简单的, 大家一起研究, 请贴上来.