Самый простой код подкачивания ASP

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

<%

Установить conn = server.createObject (adodb.connection)

conn.open (Driver = Driver Do Microsoft Access (*.mdb); uid = admin; pwd =; dbq = & server.mappath (1.mdb)))

Установить rs = server.createObject (adodb.recordset)

SQL = SELECT * от студента

Rs.open SQL, Conn, 3

rs. pageSize = 20

Если запрос (страница) <> then

epage = cint (запрос (page))

Если epage <1, то epage = 1

Если epage> rs.pagecount, то epage = rs.pagecount

еще

epage = 1

конец, если

rs.absolutepage = epage

%>

<таблица границы = 0 cellpadding = 0 cell -spacing = 1 bgcolor =#0000ff ширина = 80% align = center>

<tr bgcolor =#ffffff align = center>

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

</tr>

<%

для i = 0 до rs.pageize-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 ()

следующий

%>

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

%>

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

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

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