回 帖 发 新 帖 刷新版面

主题:谁能给小弟一段比较典型和标准的ASP分页显示代码,有注释更好~

先大力感谢一个~~~~~~~~~~~~~~~~

回复列表 (共2个回复)

沙发

<% dim rs,sql,i

                filePath = Server.MapPath("66.mdb")
                Set oConn = Server.CreateObject("ADODB.Connection")
                oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePathset rs =Server.CreateObject("adodb.recordset")
  sql="select * from info order by id"
  rs.open sql,oConn,1,1
%>
<table width="620" border="0">
  <% 
 rs.pagesize=1
  page=clng(Request("page"))
  if page<1 then page=1
  if page>rs.pagecount then page=rs.pagecount
  rs.AbsolutePage = page
for i=1 to rs.pagesize %>
  <tr>
    <td width="128" valign="top"><% response.write rs("tel") %></td>
    <td width="482"><% response.write rs("text") %></td>
  </tr>
   <% rs.movenext
    If rs.EOF Then
       Exit For
    End If
    next
   %>
</table>
<script language="JavaScript">
function MM_jump()
{
for(i=0;i<this.form3.menu1.length;i++)
{
 if (this.form3.menu1.options[i].selected==true)
 {
   window.location.href='?page='+(i+1)
 }
}
}
</script>     
     <table width="99%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="20" colspan="2">&nbsp;</td>
        </tr>
        <form name="form3">
        <tr> 
          <td width="25%" height="30"><font color="#777777"><strong>共有文章 <font color="#006600"><%=rs.recordcount%></font> 
            篇 <%=page%>/<%=rs.pagecount%>页</strong></font></td>
          <td width="75%" align="right"><%
  if page>1 then
     Response.write("<a href=?page=1>第一页</a>&nbsp;")
     Response.write("<a href=?page="&(page-1)&">上一页</a>&nbsp;")
  else
     Response.write("<font color='#006600'>第一页</font>&nbsp;")
     Response.write("<font color='#006600'>上一页</font>&nbsp;")
  end if
  if page <> rs.pagecount then
      Response.write("<a href=?page="&(page+1)&">下一页</a>&nbsp;")
      Response.write("<a href=?page="&rs.pagecount&">最后一页</a>&nbsp;")
  else
      Response.write("<font color='#006600'>下一页</font>&nbsp;")
      Response.write("<font color='#006600'>最后一页</font>&nbsp;")
  end if
%><font color='#006600'>转到 </font>
 <select name="menu1" class="www" onChange="javascript:MM_jump()">
<%
 for i=1 to rs.pagecount
 %>
                   <option <% if page=i then response.write "selected" end if%>><%=i%></option>
<%
 next
 %>
                </select>
            <font color='#006600'>页</font>
            </td>
        </tr>
        </form>
        <tr> 
          <td height="30" colspan="2">&nbsp;</td>
        </tr>
      </table></td>
  </tr>
</table>

板凳

顶了再看!!!!!!!

我来回复

您尚未登录,请登录后再回复。点此登录或注册