主题:谁能给小弟一段比较典型和标准的ASP分页显示代码,有注释更好~
初拥创始者
[专家分:540] 发布于 2007-03-12 12:52:00
先大力感谢一个~~~~~~~~~~~~~~~~
回复列表 (共2个回复)
沙发
wangsdong [专家分:21390] 发布于 2007-03-12 13:20:00
<% 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"> </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> ")
Response.write("<a href=?page="&(page-1)&">上一页</a> ")
else
Response.write("<font color='#006600'>第一页</font> ")
Response.write("<font color='#006600'>上一页</font> ")
end if
if page <> rs.pagecount then
Response.write("<a href=?page="&(page+1)&">下一页</a> ")
Response.write("<a href=?page="&rs.pagecount&">最后一页</a> ")
else
Response.write("<font color='#006600'>下一页</font> ")
Response.write("<font color='#006600'>最后一页</font> ")
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"> </td>
</tr>
</table></td>
</tr>
</table>
板凳
初拥创始者 [专家分:540] 发布于 2007-03-12 15:10:00
顶了再看!!!!!!!
我来回复