散分啦~！~第一次写分页的问题~！分页有什么好的方法吗~！我这个分页16行报错~！

[lastghost]

<!--#include file="conn.asp"-->
<!--#include file="function.asp"-->
<table width="105%" height="76" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#999999" style="font-size:9pt" >
<tr>
<td width="165" align="center" bgcolor="#FFFFCC"><strong>产品名称</strong></td>
<td width="124" align="center" bgcolor="#FFFFCC"><strong>产品型号</strong></td>
<td colspan="2" align="center" bgcolor="#FFFFCC"><strong>产品价格</strong></td>
<td width="288" align="center" bgcolor="#FFFFCC"><strong>报价日期</strong></td>
</tr>
<%
dim sql,rs
'因为要分页显示查询结果，所以用下面方法创建一个recordset对象
sql="select * from form1 where id order by submit_date desc"
set rs=Server.CreateObject("ADODB.Recordset")
response.write"<marquee>到此处为止没有出错</marquee>"
rs.Open sql,db,1
if not rs.bof and not rs.eof then
'以下主要为了分页显示
dim page_size '定义每页多少条记录变量
dim page_no '定义当前是第几页变量
dim page_total '定义总页数变量
page_size=10 '每页显示10条记录
if Request("page_no")="" then '如果第一次打开，则page_no为1，否则，由传
page_no=1 '回的参数决定
else
page_no=cint(Request("page_no"))
end if
session("page_no")=page_no '将page_no存入session,以备其它页返回时用
rs.pagesize=page_size '设置每页多少条记录
page_total=rs.pagecount '返回总页数
rs.absolutepage=page_no '设置当前显示第几页
'下面一段显示当前页的所有记录
dim i,j
i=0
j=page_size '该变量用来控制显示多少条记录
do while not rs.eof and j>0 '循环知道当前页结束或文件结尾
i=i+1
j=j-1
%>
<tr bgcolor="#FFFFCC" align="center">
<td><%=(page_no-1)*page_size+i%>
<td><%=RS("name")%></td>
<td><%=RS("vol")%></td>
<td><%=rs("price")%></td>
<td><%=rs("date")%></td>
</tr>
<%
rs.movenext
loop
end if
%>
</table>



下面是上面包含的页面。conn就不贴上来了那个不会写错的~~
<%
private sub select_page(page_no,total_page)
'该子程序依次写出各页，并将非当前页设置超链接
response.write "请选择页码:"
dim i
for i=1 to total_page
if i=page_no then
response.write i & " "
else
response.write "<a href='index.asp?page_no=" & i & "'>" & i & "</a> "
end if
next
end sub
%>

[lastghost]

谢谢了啊~1
我去试一下先`

[lovewing82]

sql="select * from form1 where id order by submit_date desc"
有个where 就一定要id=XXXXX的啊。。。
要么就把where id 去掉！

[adalp]

多到“搜索”中去搜一搜

[qyjiswgog]

http://expert.csdn.net/Expert/topic/2849/2849616.xml?temp=.8044397

[pipifirst]

sql="select * from form1 where id order by submit_date desc"

id 的条件呢？

[jiffer]

sql="select * from form1 where id order by submit_date desc"
set rs=Server.CreateObject("ADODB.Recordset")
response.write"<marquee>到此处为止没有出错</marquee>"
rs.Open sql,db,1
一个是缺少id 的查询条件，第二个是rs.open sql,db,1,1
游标要写对。

[Clove]

id不对

[vvfish119]

sql="select * from form1 where id order by submit_date desc"
rs.Open sql,db,1
改为
sql="select * from form1 order by submit_date desc"
rs.Open sql,db,1，1