乙丙醇是什么:在ASP;里如何写分页的代码“第一页”“下一页”…以及跳转到…,各位高手,帮帮哟。

来源:百度文库 编辑:高考问答 时间:2024/04/29 01:00:22

<table width="480" border="0" align="center" cellpadding="0" class="b9" id="table11" style="border-collapse: collapse">
<tr align="center" valign="middle">
<td width="380"><span style="font-size: 9pt">第<%= page %>页 
<% if page<>1 then %>
<a class=b9 href="index.asp?page=1&zpfl=<%= Trim(Request.QueryString("zpfl")) %>">首页</a>
<% else %>
首页
<% end if %>
 
<% if page>1 then %>
<a class=b9 href="index.asp?page=<%= page-1 %>&zpfl=<%= Trim(Request.QueryString("zpfl")) %>">上一页</a>
<% else %>
上一页
<% end if %>
 
<% if page<rs.pagecount then %>
<a class=b9 href="index.asp?page=<%= page+1 %>&zpfl=<%= Trim(Request.QueryString("zpfl")) %>">下一页</a>
<% else %>
下一页
<% end if %>
 
<% if page<int((rs.recordcount)/3) then %>
<a class=b9 href="index.asp?page=<%= (int((rs.recordcount)/3))+1 %>&zpfl=<%= Trim(Request.QueryString("zpfl")) %>">末页</a>
<% else %>
末页
<% end if %>
 作品共<%= rs.recordcount %>个</span></td>
<td width="120"><span class="style1"><a class=b9 href="SimpleDesign_login.asp" target="_self">管理登陆</a></span></td>
</tr>

</table>

<!--#include file="conn.asp"-->
<%
dim exec,rs,pagecount1,page,i,total,j
exec="select * from 111"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
rs.PageSize=3
pagecount1=rs.PageCount
page=request.QueryString("page")
if page<=0 then page=1
if request.QueryString("page")="" then page=1
rs.AbsolutePage=page
%>

<%for j=1 to rs.pagesize%>
<%=rs(0)%>haha<%=rs(1)%><br>
<%rs.movenext%>
<%if rs.EOF then
i=i+1
Exit For
end if%>
<%next%>

<%for i=1 to pagecount1%>
<a href="response.asp?page=<%=i%>"><%=i%></a><%next%>

rs.open sql,conn,1
'分页
page=request.querystring("page")
rs.pagesize=30
pgnm=rs.pagecount
if page="" then page=1
if page<1 then page=1
if clng(page)>pgnm then page=pgnm
if pgnm>0 then rs.absolutepage=page

<a href="?page=1>第一页</a>
<a href="?page=<%=page-1%>>上一页</a>
<a href="?page=<%=page+1%>>现一页</a>
<a href="?page=<%=pgnm%>>最后一页</a>

我的邮箱是tjoy7d@126.com,程序比较大,不便贴出,你发信给我,我把源码给你.

<DIV align="center">共有产品信息<%=rs.RecordCount%>个
<%if page<>1 then%>
<a href="lyb.asp?page=1">首页</a>
<a href="lyb.asp?page=<%=page-1%>"><<上一页</a> <%else%>
<font color="#539997">首页</font>
<font color="#539997"><<上一页</font> <%end if%>
<%if page<>rs.pagecount then%>
<a href="lyb.asp?page=<%=page+1%>">下一页>></a>
<a href="lyb.asp?page=<%=rs.pagecount%>">尾页</a> <%else%>
<span class="style1">下一页>></span>
<span class="style1">尾页</span> <%end if%>
页次: <%=page%> /<%=rs.pagecount%> 页
<strong><%=rs.pagesize%></strong>个信息/页
</DIV>

DW里面有分页的功能!不用去写代码的!