<span kelas="gaya45">
<%
setel koneksi=server.buat objek("adodb.koneksi")
DBPath = Server.MapPath("sap_mis.mdb")
samb.Buka "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set rs = server.createobject("adodb.recordset")
sql = "pilih sap_adon_record.* dari sap_adon_record diurutkan berdasarkan s_id desc"
rs.open sql, samb, 1, 1
%>
</span>
<tabel lebar = "98%" tinggi = "10" border = "1" align = "center" cellpadding = "0" sel spasi = "0" bordercolor = "#336699" bordercolordark = "#FFFFFF" class = "style45" >
<%jika rs.EOF maka%>
<tr>
<td align="center"><span style="color: #339933"><a href="add.asp">系统中暂时没有记录，请点击此处添加！</a></span>
</td>
</tr>
<%lainnya%>
<tr>
<td align="center" bgcolor="#f000ff" class="style45">111</td>
<td align="center" bgcolor="#f000ff" class="style45">222</td>
<td align="center" bgcolor="#f000ff" class="style45">333</td>
<td align="center" bgcolor="#f000ff" class="style45">444</td>
<td align="center" bgcolor="#f000ff" class="style45">555</td>
<td align="center" bgcolor="#f000ff" class="style45">666</td>
<td align="center" bgcolor="#f000ff" class="style45">777</td>
</tr>
<%
ditampilkan jumlah = 20
totalrecord=rs.recordcount
rs.pagesize=angka yang ditampilkan
maxpage=rs.pagecount
requestpage=clng(request.querystring("page"))
if requestpage="" atau requestpage=0 maka
halaman permintaan=1
berakhir jika
jika halaman permintaan>halaman maksimal maka
halaman permintaan=halaman maksimal
berakhir jika
jika tidak memintahalaman=1 maka
rs.move (halaman permintaan-1)*rs.pagesize
berakhir jika
untuk i=1 hingga rs.pagesize dan bukan rs.bof%>
<tr>
<td align="center" class="style45"><a href='show.asp?s_id=<%=rs("s_id")%>' target="_blank"><%=rs("prname" )%></a></td>
<td align="center" class="style45"><%=rs("trscod")%></td>
<td align="center" class="style45"><%=rs("crname")%></td>
<td align="center" class="style45"><%=rs("crdate")%></td>
<td align="center" class="style45"><%=rs("prtype")%></td>
<td align="center" class="style45"><%=rs("fction")%></td>
<td align="center" class="style45"><a href='edit.asp?s_id=<%=rs("s_id")%>'>编辑</a></td>
</tr>
<%
rs.movenext
jika rs.eof lalu keluar untuk
Berikutnya
%>
</tabel>
<tabel lebar="98%" height="10" align="center" border="1" bordercolor="#336699" bordercolordark="#FFFFFF" cellpadding="0" Cellspacing="0" >
<tr>
<td align="center" class="style45"><a href=add.asp>添加记录</a> | <a href=readExcel.asp target="_self">GUNA EXCEL</a> | <a href=srch.asp>高级查询</a>
</td>
</tr>
<tr>
<td menyelaraskan=tengah>
<span kelas="gaya45">
<%
jika requestpage-1 mod 10=0 maka
p=(halaman permintaan-1) 10
kalau tidak
p=(halaman permintaan-1) 10
berakhir jika
jika halaman permintaan=1 maka
respon.tulis "<font face=webdings color=""#FF0000"">9</font>"
kalau tidak
respon.tulis "<a href=index.asp?page=1 title=首页><font face=webdings>9</font></a>"
berakhir jika
jika p*10>0 maka respon.tulis "<a href=index.asp?page="&p*10&" title=上十页><font face=webdings>7</font></a>"
respon.tulis "<b>"
untuk ii=p*10+1 hingga P*10+10
jika ii=halaman permintaan maka
respon.tulis "<font color=""#FF0000"">"&ii&"</font> "
kalau tidak
respon.tulis "<a href=index.asp?page="&ii&">"&ii&"</a> "
berakhir jika
jika ii=maxpage lalu keluar untuk
Berikutnya
respon.tulis "</b>"
jika ii<maxpage maka respon.tulis "<a href=index.asp?page="&ii&" title=下十页><font face=webdings>8</font></a>"
jika requestpage=maxpage maka
respon.tulis "<font face=webdings color=""#FF0000"">:</font> "
kalau tidak
respon.tulis "<a href=index.asp?page="&maxpage&" title=尾页><font face=webdings>:</font></a>"
berakhir jika
respon.write" 总共有"&maxpage&"页 共"&totalrecord&"个记录 每页"&shownum&"个"
berakhir jika
%>
</span></td>
</tr>
</TABEL>
<span kelas="gaya45">
<%
rs.tutup
setel rs = tidak ada
samb.tutup
setel sambungan = tidak ada
%>