高分求教：ASP分页问题，上一页、下一页不能用，急急急

Question

<table width="705" border="0" align="center" cellpadding="10" cellspacing="0">
<tr>
<td width="734"><%set rs = server.CreateObject("adodb.recordset")
sql = "select id,yname,smallimg,info,time,xinhao From ybook where classid like '"&request("classid")&"' order by id"
rs.open sql,conn,1,1
if rs.recordcount > 0 then
for i = 1 to 2
%>
<table width="470" height="63" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<%for j = 1 to 3%><td><table width="265" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="20" align="center"> </td>
<td width="250" height="165" align="center" background="images/product.jpg"><div align="center"><a href="product_read.asp?id=<%=rs("id")%>" target="_blank"><img src="<%=rs("smallimg")%>" height="150" border="0"></a><a href="product_read.asp?id=<%=rs("id")%>" target="_blank"></a></div></td>
<td width="20" align="center"> </td>
</tr>
<tr>
<td height="25" colspan="3" align="center" style="color:#000000"><strong><%=rs("yname")%></strong></td>
</tr>
</table></td>
<%rs.movenext
if rs.eof or rs.bof then exit for
next%>
</tr>
</table>
<%if i < 2 then%>
<table width="470" height="15" border="0" align="center" cellpadding="0" cellspacing="0" background="images/pp_li1.jpg">
<tr>
<td> </td>
</tr>
</table>
<%end if
if rs.eof or rs.bof then exit for
next
end if%>
<table width="100%" height="25" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" style="color:#666666">共有产品<%=rs.recordcount%>个 <%=rs.pagesize%>个/页 当前<%=pageno%>/<%=rs.pagecount%>页 <a href="product.asp?page=1">首页</a> <a href="product.asp?page=<%=pageno - 1%>">上壹页</a> <a href="product.asp?page=<%=pageno + 1%>">下壹页</a> <a href="product.asp?page=<%=rs.pagecount%>">尾页</a></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="50" valign="top" bgcolor="#F7F7F7"> </td>
</tr>
</table></td>
</tr>
</table>
请会的大虾们加我QQ：30994940，采纳就送高分，急急急，谢谢了！

Answer 1

ASP代码很眼花。

给你一个完整的，照 着改吧。

set rsall=server.createobject("adodb.recordset")
sql = "select * from yp_com where yz=1 order by id desc"
rsall.open sql,conn,1,1
rsall.Pagesize=14 '指示每页显示记录数
pagecount=rsall.pagecount '确定对象数据中的页数
recordcount=rsall.recordcount '记录总条数
page=int(request("page"))
if page<=0 then
page=1
end if
if request("page")="" then
page=1
end if
if rsall.EOF and rsall.BOF then
response.write ("无内容!")
else
rsall.absolutepage=page '指定当前记录所在的页
for i2=1 to rsall.pagesize
'........显示内容........
rsall.MoveNext 'rs指向下一记录
if rsall.EOF then '如果数据库数据不够一页就退出循环
exit for
end if
next '下一循环
end if
rsall.close
set rsall=nothing

'分页
if pagecount>1 then
dim myurl,pageposition
myurl=Request.ServerVariables("QUERY_STRING")
if myurl<>"" then
pageposition=instr(myurl,"page")
if pageposition>0 then
myurl=left(myurl,pageposition-1)
else
myurl=myurl+"&"
end if
end if
response.write "<div id=""page"" class=""fenye""><div class=""green-black"">"
response.write "<a>共 "&recordcount&" 条</a>   "
if page<2 then
response.write "<a><font color=""#aaaaaa"">首页</font></a>   "
response.write "<a><font color=""#aaaaaa"">上一页</font></a>   "
else
response.write "<a href=?"&myurl&"page=1>首页</a>   "
response.write "<a href=?"&myurl&"page="&page-1&">上一页</a>   "
end if
if pagecount-page<1 then
response.write "<a><font color=""#aaaaaa"">下一页</font></a> "
response.write "<a><font color=""#aaaaaa""> 尾页</font></a> "
else
response.write "<a href=?"&myurl&"page="&(page+1)&">下一页</a>   "
response.write "<a href=?"&myurl&"page="&pagecount&">尾页</a>   "
end if
response.write "<a>第 <span style=""color:#FF6600"">"&page&"</span>/"&pagecount&" 页</a>"
response.write "</div></div>"
end if

Answer 2

自己把这个值输出来看看 有没有值pageno
拜托把错误的东西贴出看看

Answer 3

pageno 这个变量值都没有，把完整的代码贴出来吧

Answer 4

pageno不知道有没有值啊?如果有值的话,记得转换成数字!这个函数好像是cint()...