一种比较方便的ASP分页程序_ASP技巧

<span class="style45">

<%

set 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 = "select sap_adon_record.* from sap_adon_record order by s_id desc"

rs.open sql, conn, 1, 1

%>

</span>

<table width="98%" height="10" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#336699" bordercolordark="#FFFFFF" class="style45" >

<%if rs.EOF then%>

<tr>

<td align="center"><span style="color: #339933"><a href="add.asp">系统中暂时没有记录，请点击此处添加！</a></span>

</td>

</tr>

<%else%>

<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>

<%

shownum=20