أبسط رمز الترحيل ASP

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

<٪

تعيين conn = server.createBject (adodb.connection)

conn.open (برنامج التشغيل = برنامج التشغيل Do Microsoft Access (*.mdb) ؛ uid = admin ؛ pwd = ؛ dbq = & server.mappath (1.mdb))

تعيين rs = server.createBject (adodb.recordset)

SQL = حدد * من الطالب

Rs.Open SQL ، Conn ، 3

rs.pagesize = 20

إذا طلب (صفحة) <> ثم

epage = cint (طلب (صفحة))

إذا كانت epage <1 ثم epage = 1

إذا كانت epage> rs.pageCount ثم epage = rs.pageCount

آخر

epage = 1

إنهاء إذا

rs.absolutepage = epage

٪>

<table border = 0 cellpadding = 0 cellspacing = 1 bgColor =#0000ff width = 80 ٪ align = center>

<tr bgcolor =#ffffff align = center>

<th> <٪ = rs (0) .Name ٪> </h> <h> <٪ = rs (1) .Name ٪> </th> <th> <٪ = rs (2) .Name ٪> </th>

</r>

<٪

لأني = 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>

</r>

<٪

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 也可以改一下 ، 如果记录少的话.

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