| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 464 人关注过本帖
标题:分页问题
只看楼主 加入收藏
五岳狂人
Rank: 1
等 级:新手上路
帖 子:168
专家分:0
注 册:2006-3-24
收藏
 问题点数:0 回复次数:7 
分页问题

<%
bigclass=trim(Request.QueryString("bigclass"))
set rs=server.createobject("adodb.recordset")
sql="select * from product where bigclass='"&bigclass&"'"
rs.Open sql,conn,1,3
PageSize=12
%>
<table width="560" border="0" cellspacing="0">
<tr>
<td height=33 colspan="3" background="images/bgbg1.gif"><img src="images/ring02.gif" width="23" height="15" align="absmiddle"> <a href=index.asp>宏源电子</a> >> <%=bigclass%></td>
</tr>
<tr>
<td background="images/small.gif">&nbsp;</td>
</tr>

<!--#INCLUDE FILE="inc/page_up_down.asp"-->
<tr>
<td height="327" valign="top">
<%
if rs.eof then
response.write ("对不起,没有任何数据")
else
do while not rs.eof
if processedrecord >=pagesize then
exit do
end if
%>

<table width="100%" class="table-xia" border="0" cellspacing="0" cellpadding="10" align="center">
<tr>
<td width="28%" rowspan="5" class="table-you" align="center">
<TABLE onMouseOver="this.style.backgroundColor='#FF6600'" onMouseOut="this.style.backgroundColor=''" width=100 height=100 cellSpacing=1 cellPadding=2 bgColor=#e1e1e1 border=0>
<TBODY>
<TR>
<TD width=100 height=100 bgColor=#ffffff align=center> <a href="readProduct.asp?productID=<%=rs("productID")%>" target="_blank"><img src="admin/<%=trim(rs("bigpic"))%>" width=100 border=0 height=77></a></td>
</tr>
</tbody>
</table></td>
<td colspan="2"><img src="images/ring01.gif"> <font color="#ff6600"><%=(rs("product"))%> </td>
</tr>

<tr>
<td colspan="2" valign="top">产品类别:<%=rs("bigclass")%>>>><a href="smallProList.asp?bigclass=<%=rs("bigclass")%>&smallclass=<%=rs("smallclass")%>"><%=rs("smallclass")%></a></td>
</tr>
<tr>
<td width="53%" valign="top"> 内容简介:<font color="#666666">
<%if len(trim(rs("content")))>100 then
response.write left(trim(rs("content")),98)&"..."
else
response.write trim(rs("content"))
end if%>
</font></td>
<td width="19%" valign="top">&nbsp;</td>
</tr>
</table>

<%
processedrecord=processedrecord+1
rs.movenext
loop
end if
rs.close
set rs=nothing
%>

</td>
</tr>
<tr>
<td align="center">
<table width="99%" border="0" cellspacing="1" cellpadding="1" align="center">
<form action="bigprolist.asp" method="post">
<tr height="25">
<td align="center">总记录数:<%=RecordCount%> 每页显示:<%=PageSize%> 总计页数:<%=pagecount%> 当前页数:<%=Page_No%> 
<%if page_no>1 then%>
<a href="?page_no=<%=page_no-1%>">上一页</a> |
<%end if%>
<a href="?page_no=<%=page_no%>">刷新</a>
<%if page_no<pagecount then%>
| <a href="?page_no=<%=page_no+1%>">下一页</a>
<%end if%>
转到第
<select name="page_no" size="1">
<option value="<%=page_no%>" selected><%=Page_No %></option>
<%For i=1 to pagecount%>
<option value="<%=i%>"><%=i%></option>
<%Next%>
</select>

<input name="submit" type="submit" value="GO">
</td>
</tr>
</form>
</table></td>
</tr>
</table>
</TD>
</TR>

如果我去掉“粗体”部分可以显示下一页
我没有去掉就不能显示
该怎么改啊

2007-04-21 12:26
lq7350684
Rank: 6Rank: 6
等 级:贵宾
威 望:20
帖 子:5089
专家分:98
注 册:2006-11-6
收藏
得分:0 

你确定bigclass的值传过来了吗?
用response.white输出看一下.

2007-04-21 12:46
五岳狂人
Rank: 1
等 级:新手上路
帖 子:168
专家分:0
注 册:2006-3-24
收藏
得分:0 
传给来了
我用第二个大类的时候
就显示第二个大类
第以个就没有显示了

2007-04-21 12:52
lq7350684
Rank: 6Rank: 6
等 级:贵宾
威 望:20
帖 子:5089
专家分:98
注 册:2006-11-6
收藏
得分:0 

<%
bigclass=trim(Request.QueryString("bigclass"))
set rs=server.createobject("adodb.recordset")
sql="select * from product where bigclass='"&bigclass&"'"
rs.Open sql,conn,1,3
PageSize=12
%>
<table width="560" border="0" cellspacing="0">
<tr>
<td height=33 colspan="3" background="images/bgbg1.gif"><img src="images/ring02.gif" width="23" height="15" align="absmiddle"> <a href=index.asp>宏源电子</a> >> <%=bigclass%></td>
</tr>
<tr>
<td background="images/small.gif">&nbsp;</td>
</tr>

<!--#INCLUDE FILE="inc/page_up_down.asp"-->
<tr>
<td height="327" valign="top">
<%
if rs.eof then
response.write ("对不起,没有任何数据")
else
do while not rs.eof
if processedrecord >=pagesize then
exit do
end if
%>

<table width="100%" class="table-xia" border="0" cellspacing="0" cellpadding="10" align="center">
<tr>
<td width="28%" rowspan="5" class="table-you" align="center">
<TABLE onMouseOver="this.style.backgroundColor='#FF6600'" onMouseOut="this.style.backgroundColor=''" width=100 height=100 cellSpacing=1 cellPadding=2 bgColor=#e1e1e1 border=0>
<TBODY>
<TR>
<TD width=100 height=100 bgColor=#ffffff align=center> <a href="readProduct.asp?productID=<%=rs("productID")%>" target="_blank"><img src="admin/<%=trim(rs("bigpic"))%>" width=100 border=0 height=77></a></td>
</tr>
</tbody>
</table></td>
<td colspan="2"><img src="images/ring01.gif"> <font color="#ff6600"><%=(rs("product"))%> </td>
</tr>

<tr>
<td colspan="2" valign="top">产品类别:<%=rs("bigclass")%>>>><a href="smallProList.asp?bigclass=<%=rs("bigclass")%>&smallclass=<%=rs("smallclass")%>"><%=rs("smallclass")%></a></td>
</tr>
<tr>
<td width="53%" valign="top"> 内容简介:<font color="#666666">
<%if len(trim(rs("content")))>100 then
response.write left(trim(rs("content")),98)&"..."
else
response.write trim(rs("content"))
end if%>
</font></td>
<td width="19%" valign="top">&nbsp;</td>
</tr>
</table>

<%
processedrecord=processedrecord+1
rs.movenext
loop
end if
rs.close
set rs=nothing
%>

</td>
</tr>
<tr>
<td align="center">
<table width="99%" border="0" cellspacing="1" cellpadding="1" align="center">
<form action="bigprolist.asp" method="post">
<tr height="25">
<td align="center">总记录数:<%=RecordCount%> 每页显示:<%=PageSize%> 总计页数:<%=pagecount%> 当前页数:<%=Page_No%> 
<%if page_no>1 then%>
<a href="?page_no=<%=page_no-1%>&bigclass=<%request("bigclass")%>">上一页</a> |
<%end if%>
<a href="?page_no=<%=page_no%>">刷新</a>
<%if page_no<pagecount then%>
| <a href="?page_no=<%=page_no+1%>&bigclass=<%request("bigclass")%>">下一页</a>
<%end if%>
转到第
<select name="page_no" size="1">
<option value="<%=page_no%>" selected><%=Page_No %></option>
<%For i=1 to pagecount%>
<option value="<%=i%>"><%=i%></option>
<%Next%>
</select>

<input name="submit" type="submit" value="GO">
</td>
</tr>
</form>
</table></td>
</tr>
</table>
</TD>
</TR>



应该就是你没有把参数传到下一页去,你试一下上面的.

2007-04-21 12:59
五岳狂人
Rank: 1
等 级:新手上路
帖 子:168
专家分:0
注 册:2006-3-24
收藏
得分:0 
那你改了哪里了

我怎么看不出来啊

2007-04-21 13:26
lq7350684
Rank: 6Rank: 6
等 级:贵宾
威 望:20
帖 子:5089
专家分:98
注 册:2006-11-6
收藏
得分:0 

先说现在好了没有?

2007-04-21 13:28
五岳狂人
Rank: 1
等 级:新手上路
帖 子:168
专家分:0
注 册:2006-3-24
收藏
得分:0 
还是不行啊
怎么办

2007-04-21 13:29
五岳狂人
Rank: 1
等 级:新手上路
帖 子:168
专家分:0
注 册:2006-3-24
收藏
得分:0 
回复:(五岳狂人)分页问题
哦谁谁办法啊

在线等啊

2007-04-23 09:21
快速回复:分页问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.077165 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved