<span類=“style45”>
<%
設定 conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("sap_mis.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set rs = server.createobject("adodb.recordset")
sql =“按 s_id desc 從 sap_adon_record 順序中選擇 sap_adon_record.*”
rs.open sql, conn, 1, 1
%>
</span>
<表格寬度=“98％”高度=“10”邊框=“1”對齊=“中心”cellpadding=“0”cellspacing=“0”bordercolor=“#336699”bordercolordark=“#FFFFFF”class=“style45” >
<%如果 rs.EOF 那麼%>
<tr>
<tdalign="center"><span style="color: #339933"><a href="add.asp">系統中暫時沒有記錄，請點擊此處新增！
</td>
</tr>
<%其他%>
<tr>
<tdalign="center"bgcolor="#f000ff"class="style45">111</td>
<tdalign="center"bgcolor="#f000ff"class="style45">222</td>
<tdalign="center"bgcolor="#f000ff"class="style45">333</td>
<tdalign=“center”bgcolor=“#f000ff”class=“style45”>444</td>
<tdalign=“center”bgcolor=“#f000ff”class=“style45”>555</td>
<tdalign=“center”bgcolor=“#f000ff”class=“style45”>666</td>
<tdalign=“center”bgcolor=“#f000ff”class=“style45”>777</td>
</tr>
<%
顯示數=20
總記錄=rs.recordcount
rs.pagesize=shownum
maxpage=rs.pagecount
requestpage=clng(request.querystring("page"))
如果 requestpage="" 或 requestpage=0 那麼
請求頁面=1
結束如果
如果請求頁>最大頁那麼
請求頁=最大頁
如果不是 requestpage=1 則
結束
rs.move (requestpage-1)*rs.pagesize
結束如果
對於 i=1 到 rs.pagesize 而不是 rs.bof%>
<tr>
<tdalign="center"class="style45"><a href='show.asp?s_id=<%=rs("s_id")%>' target="_blank"><%=rs("prname" ) %></a></td>
<tdalign="center"class="style45"><%=rs("trscod")%></td>
<tdalign="center"class="style45"><%=rs("crname")%></td>
<tdalign="center"class="style45"><%=rs("crdate")%></td>
<tdalign="center"class="style45"><%=rs("prtype")%></td>
<tdalign="center"class="style45"><%=rs("fction")%></td>
<tdalign="center"class="style45"><a href='edit.asp?s_id=<%=rs("s_id")%>'>編輯</a></td>
</tr>
<%
rs.movenext
如果 rs.eof 則退出
下一個
%>
</表>
<表格寬度=“98％”高度=“10”對齊=“中心”邊框=“1”bordercolor=“#336699”bordercolordark=“#FFFFFF”cellpadding=“0”cellspacing=“0”>
<tr>
<tdalign="center"class="style45"><a href=add.asp>新增記錄</a> | <a href=readExcel.asp target="_self">EXCEL檔案批次匯入</a> | <a href=srch.asp>高級查詢</a>
</td>
</tr>
<tr>
<td 對齊=居中>
<span類=“style45”>
<%
如果 requestpage-1 mod 10=0 那麼
p=(請求頁-1) 10
別的
p=(請求頁-1) 10
結束如果
如果 requestpage=1 那麼
response.write "<font face=webdings color=""#FF0000"">9</font>"
別的
response.write "<a href=index.asp?page=1 title=首頁><font face=webdings>9</font></a>"
結束如果
if p*10>0 then response.write "<a href=index.asp?page="&p*10&" title=上十頁><font face=webdings>7</font></a>"
回應.write“<b>”
對於 ii=p*10+1 到 P*10+10
如果 ii=請求頁面 那麼
response.write "<font color=""#FF0000"">"&ii&"</font> "
別的
response.write "<a href=index.asp?page="&ii&">"&ii&"</a> "
結束如果
如果 ii=maxpage 則退出
下一個
回應.write“</b>”
if ii<maxpage then response.write "<a href=index.asp?page="&ii&" title=下十頁><font face=webdings>8</font></a>"
如果請求頁=最大頁那麼
response.write "<font face=webdings color=""#FF0000"">:</font> "
別的
response.write "<a href=index.asp?page="&maxpage&" title=尾頁><font face=webdings>:</font></a>"
結束如果
response.write"總共有"&maxpage&"頁共"&totalrecord&"個記錄每頁"&shownum&"個"
結束如果
%>
</span></td>
</tr>
</表>
<span類=“style45”>
<%
rs.close
設定 rs = 無
連線關閉
設定 conn = 無
%>