<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">系统中暂时没有记录，请点击此处添加！</a></span>
</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 = 无
%>