Question

ASP 分页链接问题？分页已经实现，但进入产品分类中后，点上一页或下一页，显示的不是那个分类的产品了。

整页代码太长了，有限制。大概的情况是这样的：
<a href="?page=<%=Request.QueryString("id")%>">首页</a> 
<a href="?id=<%=page-1%>&<%=Request.QueryString("id")%>">上一页</a>  
<a href='?page=<%=page+1%>&<%=Request.QueryString("id")%>'>下一页</a> 
<a href='?page=<%=allpages%>'>尾页</a>  
页次：<%=page%>/<%=allpages%>页
点产品展示，则显示出来全部产品，这个时候点 首页，上一页，下一页都正常，但当点击进入到一个产品分类之后，只有首页点击是正常的，点上一页或下一页都转到其他地方去了。

我想实现的功能是：
当分类产品超过一页时，点击下一页则进入到该分类产品的下一页；在第一页时，上一页，不要链接，最后一页时，下一页不要链接。

请教！

Answer 1

你分页时，有一个区分类别的参数没在分页的连接上传递!
你看下我这个分页，PID参数就是传递的其它参数格式如 PID = "typeid=2&"

给我一直在用的一个分页函数给你，并带使用例子

'PID 页面中的其它传参连接
'page 要显示的页码
'Vcount 总记录数
'Pnum 每页记录数
'className 超连接样式
public function ThePage(Pid,page,Vcount,Pnum,className)
dim show
page = int(page)
Pcount = abs(int(-abs(Vcount/Pnum)))
if page = "" or page <= 0 then page = 1
if page>Pcount then page=Pcount
StartPageNum=1
do while StartPageNum+10<=page
StartPageNum=StartPageNum+10
Loop
EndPageNum=StartPageNum+9

If EndPageNum>Pcount then EndPageNum=Pcount
show = show&"<tr><td colspan='10' bgcolor='' align='right' style='padding-right:25px;padding-top:5px;' class='"&className&"'>"
show = show&"共<b>"&Pcount&"</b>页 共有<b>"&Vcount&"</b>记录 第<b>"&page&"</b>页 跳到第 [ "
if StartPageNum>1 then
show = show&"<a class='"&className&"' href='?"&Pid&"page="&StartPageNum-1&"' title='前十页'><font face='webdings'>7</font></a>"
end if
For go=StartPageNum to EndPageNum

if go<>page then
show = show&"<a class='"&className&"' href='?"&Pid&"page="&go&"'>"&go&"</a>"
else
show = show&"<b>"&go&"</b>"
end if
show = show&" "
Next

if EndPageNum<Pcount then
show = show&"<a class='"&className&"' href='?"&Pid&"page="&EndPageNum+1&"' title='下十页'><font face='webdings'>8</font></a>"
end if
show = show& "] 页"

if page<>1 then
show = show&"<a class='"&className&"' href='?"&Pid&"page=1'> 首页</a> <a class='"&className&"' href='?"&Pid&"page="&page-1&"'>上一页</a>"
end if

if Pcount-page <> 0 then
show = show& "<a class='"&className&"' href='?"&Pid&"page="&page+1&"'> 下一页</a> <a class='"&className&"' href='?"&Pid&"page="&Pcount&"'>尾页</a>"
end if
show=show&"</tr></td>"
ThePage = show
end function

=====================使用示例============================
<%
'分页参数设置
sql = "select * from [guestbook] where TID = "&request("typeid")&" order by orderid,id desc"
page = request.querystring("page")
if page = "" then page = 1
page = int(page)
Pnum = 15
className = "lwf"
PID = "typeid="&request("typeid")&"&"
'以下不变
set rs = server.createobject("adodb.recordset")
rs.open sql,conn,1,1
Vcount = RS.recordcount
if RS.recordcount <> 0 then
RS.absoluteposition=RS.absoluteposition+((abs(page)-1)*Pnum)
end if

'********************************
i = 1
while not RS.eof and i<=Pnum

%>
<tr>
<td width="3%" height="25" align="center"><img src="images/ico1.jpg" width="6" height="6" /></td>
<td align="left" class="other_font5"><%=rs("title")%></td>
</tr>
<tr>
<td class="other_font9"> </td>
<td class="other_font9"><%=rs("contents")%></td>
</tr>

<%
rs.movenext
i = i + 1
wend
rs.close
set rs = nothing
%>
<%=ThePage(Pid,page,Vcount,Pnum,className)%>

Answer 2

看了一下，你贴上来的代码好像也有问题

应该是这样吧

<a href="?id=<%=Request.QueryString("id")%>">首页</a>
<a href="?page=<%=page-1%>&id=<%=Request.QueryString("id")%>">上一页</a>
<a href='?page=<%=page+1%>&id=<%=Request.QueryString("id")%>'>下一页</a>
<a href='?page=<%=allpages%>&id=<%=Request.QueryString("id")%>'>尾页</a>
页次：<%=page%>/<%=allpages%>页

确保你的每个分页链接上都加了分类参数。除了首页以外每个链接都加了page参数。

另外你说的不要链接的情况，需要知道你用的是vbscript还是javascript编写的才能告诉你啊。

Answer 3

第一个

<a href='?page=<%=page+1%>&<%=Request.QueryString("id")%>'>下一页</a>

&后面要象前面一样: ?page=1&id=1

第二个

用 if 判断

类似:

<%if curpage=1 then%>
首页
<%else%>
<a href="?curpage=1" class="a2">首页</a>
<%end if%>