<%
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>

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

="?page_no=&lt;%=page_no+1%&gt;&amp;bigclass=&lt;%=bigclass%&gt;"&gt;

是不是加上条件以后只有一页了？
嗯，bigclass这个条件也没有传回去。

[此贴子已经被作者于2007-4-23 10:20:17编辑过]

那怎么改啊

谢谢帮忙了

阳光白雪

你的那个方法不行啊

我试过了

第一，page_no没有值
第二，即使有值，也没有进行运算
第三，分页为什么不用rs.absolutepage这个对象？
第四，不用也可以，但第二页的时候需要先跳过第一页的12条记录才可以呀。

[此贴子已经被作者于2007-4-23 11:11:01编辑过]

那你 有没有什么代码啊

page_up_down.asp里的 代码如下：


<%
CurrentPage=0
PageCount=0
RecordCount=0
page_no=Trim(Request("page_no"))

if page_no="" then
page_no=1
else
page_no=Cint(page_no)
end if


Do While Not rs.EOF
RecordCount = RecordCount + 1
rs.MoveNext
Loop

if Not rs.BOF then
rs.MoveFirst
end if

PageCount = Round(RecordCount/PageSize)
If PageCount < RecordCount/PageSize then
PageCount = PageCount + 1
end if

CurrentPage=Page_No

if CurrentPage>pagecount then
CurrentPage=pagecount
end if
Page_No=CurrentPage

startrecord=(CurrentPage-1)*pagesize

if not rs.eof then
rs.MoveFirst
end if

if not rs.eof then
rs.Move startrecord
end if
processedrecord=0

%>

怎么没有人回啊

郁闷啊

[QUOTE]<%
''调用实例开始
''==============分页参数================
Dim Page,TurnPageName,LinkStr,Auto_PageCount
Page = Request.QueryString("Page")
TurnPageName = "Admin_AdUser.Asp" ''当前页面名称
LinkStr = "" ''用于存储传递查询参数字符串
Auto_PageCount = 20 ''每页显示记录数
If Page = "" Or Not IsNumeric(Page) Then
Page = 1
End If
''创建Conn对象部分略...
''=========开始读取数据并分页==========
SqlStr ="Select * From [Table] Where [...] Order By [...]"
Set Rs = Server.CreateObject("Adodb.Recordset")
Rs.Open SqlStr,Conn,1,1
AllNoteCount = Rs.Recordcount
If Not Rs.Eof Then
Rs.PageSize = Auto_PageCount
AllPageCount = Rs.PageCount
If Page - AllPageCount > 0 Then
Page = AllPageCount
End If
If AllPageCount <> 0 Then
Rs.AbsolutePage = Page
End If
For Icount = 1 To Auto_PageCount
''当到记录尾时跳出循环
If Rs.Eof Then Exit For
''===输出内容开始===
''.........
''.........
''===输出内容结束==
Rs.MoveNext
Next
Else
AllPageCount = 0
Page = 0
Response.Write("没有数据时输出的内容")
End IF
Rs.Close()
Set Rs = Nothing
Call TurnPage() ''调用翻页函数
''调用实例结束



Rem 以下函数建议放置包含文件中
Rem 函数功能：系统通用翻页模块
Sub TurnPage()
Response.Write("共<B>"& AllNoteCount &"</B>条记录&nbsp;&nbsp;")
If Page > 1 Then
Response.Write("<a href='"& TurnPageName &"?&Page=1"& LinkStr &"'>首页</a>&nbsp;&nbsp;<a href='"& TurnPageName &"?&Page="& Page-1 & LinkStr &"'>上一页</a>&nbsp;&nbsp;")
Else
Response.Write("<font class=""AbleFont"">首页&nbsp;&nbsp;上一页&nbsp;&nbsp;</font>")
End If
If Page - AllPageCount < 0 Then
Response.Write("<a href='"& TurnPageName &"?&Page="& Page+1 & LinkStr &"'>下一页</a>&nbsp;&nbsp;<a href='"& TurnPageName &"?&Page="& AllPageCount & LinkStr &"'>尾页</a>&nbsp;&nbsp;")
Else
Response.Write("<font class=""AbleFont"">下一页&nbsp;&nbsp;尾页&nbsp;&nbsp;</font>")
End If
Response.Write("<B><font class=""KeyFont"">"& Page &"</font>/"& AllPageCount &"</B>&nbsp;&nbsp;")
Response.Write("转到<select name=""gotopage"" onChange=""if (this.options[this.selectedIndex].value!=''){window.location=this.options[this.selectedIndex].value;}"" style=""font-size:12px; height:16px; border=0;"" valign=""middle"">")
For I = 1 To AllPageCount
If Page - I = 0 Then
Selected = " selected"
Else
Selected = ""
End If
Response.Write("<option value='"& TurnPageName &"?Page="& I & LinkStr &"' "& Selected &">第"& I &"页</Option>")
Next
If AllPageCount = 0 Then
Response.Write("<option value=''>第0页</Option>")
End If
Response.Write("</select>")
End Sub
%>
[/QUOTE]

[此贴子已经被作者于2007-4-23 13:29:56编辑过]