请教翻页代码在ASP程序中的放置问题 - ASP技术论坛

楼主

问题点数：0 回复次数：6

请教翻页代码在ASP程序中的放置问题

搜索更多相关主题的帖子: ASP程序　页代码　

第 2 楼

得分:0

没有特别说明一定要放在哪个位置

http://www./

第 3 楼

得分:0

还是不是很懂,能否给段代码指点下

－－－－－－－男人赚钱为了女人－－－－－－－－－－－－－－女人花钱就找男人－－－－－－－

第 4 楼

得分:0

最简单的分页代码：
<%
'***********************分页******************
dim page_size
dim page_no
dim page_total
dim wenjianming
wenjianming="当前页名称"
page_size=10
if request.querystring("page_no")="" then
page_no=1
else
page_no=cint(request.querystring("page_no"))
end if
rs.pagesize=page_size
page_total=rs.pagecount
if not(rs.bof or rs.eof) then
rs.absolutepage=page_no
end if
dim i
i=page_size
%>

<%
if page_total=1 then
response.write "首页|上一页|下一页|尾页"
else
response.write "<a href=" & wenjianming & "?page_no=1>首页</a>|"
if page_no-1>0 then
response.write "<a href=" & wenjianming & "?page_no=" & page_no-1 & ">上一页</a>|"
else
response.write "上一页|"
end if
if page_no+1<=page_total then
response.write "<a href=" & wenjianming & "?page_no=" & page_no+1 & ">下一页</a>|"
else
response.write "下一页|"
end if
response.write "<a href=" & wenjianming & "?page_no=" & page_total & ">尾页</a>"
end if
'*****************************************
%>
<table width="90%" border="0">
<tr bgcolor="#b7b7b7" align="center">
<td width="10%" >姓名 </td>
<td width="20%">电话</td>
<td width="30%">Email</td>
<td width="20%">住址</td>
<td width="20%">备注</td>
</tr>
<%
do while not rs.eof and i>0
i=i-1
%>
<tr bgcolor="#00ccff" align="center">
<th ><div align="center"><%=rs("xingming")%></div></th>
<td><div align="center"><%=rs("dianhua")%></div></td>
<td><div align="center"><%=rs("youxiang")%></div></td>
<td><div align="center"><%=rs("zhuzhi")%></div></td>
<td><div align="center"><%=rs("beizhu")%></div></td>
</tr>
<%
rs.movenext
loop
%>

我是做平面设计、网站制作、网站推广、主机域名等业务的站长。有需要的给我站内信吧。

第 5 楼

得分:0

[CODE]<%
'***********************分页******************
dim page_size
dim page_no
dim page_total
dim wenjianming
wenjianming="当前页名称"
page_size=10
if request.querystring("page_no")="" then
page_no=1
else
page_no=cint(request.querystring("page_no"))
end if
rs.pagesize=page_size
page_total=rs.pagecount
if not(rs.bof or rs.eof) then
rs.absolutepage=page_no
end if
dim i
i=page_size
%>

[/CODE]

这个文件哪里有错呀

第 6 楼

得分:0

分页代码应该是放置在分页的ADODB.RecordSet对象初始化代码的后面(也就是下面)，而下面具体放置在那里，就没有硬性要求了，根据个人需要放置在哪里都可以。
回5楼那个代码明显缺少rs对象的初始化过程，也就是没有执行过rs.open或set rs=con.execute("select * from [tablename]")这样的初始化代码，不初始化是会出错误的。

第 7 楼

得分:0

呵呵，我在写代码的时候，rs集合自带的分页功能就出来试验成功过，所以就一直是自己写分页代码，这东西简单。
根据每页需要显示的记录数，完全可以写出自己的分页代码来，用不着非得用rs集合里的什么absolutepage、pagesize什么的。只是在服务器处理时间上没有那个快而已，不过，以现在服务器处理的速度来看，这个时间差基本上感觉不出来。