<%
'分页显示函数
Function showpage(totalnumber,maxperpage,filename)
Dim n

'如果记录总数整除每页最大显示数
If totalnumber Mod maxperpage=0 Then
'则页数等于记录总数除以每页最大显示数的商
n= totalnumber \ maxperpage
Else
'否则页数等于记录总数除以每页最大显示数的商加1
n= totalnumber \ maxperpage+1
End If

'如果当前页数小于2
If CurrentPage<2 Then
'第一页、第二页以文字显示
%>
第一页 上一页
<%
Else

'否则，显示到第一页和第二页的链接
%>
<a href="<%=filename%>?catid=<%=Rs("CATID")%>&page=1">第一页</a> <a href="<%=filename%>?catid=<%=Rs("CATID")%>&page=<%=CurrentPage-1%>">上一页</a>
<%
End If

'如果是最后一页
If n-currentpage<1 Then
'下一页和最后一页以文字显示
%>
下一页 最后一页
<%
Else
'否则，显示到下一页和最后一页的链接
%>
<a href="<%=filename%>?catid=<%=Rs("CATID")%>&page=<%=CurrentPage+1%>">下一页</a> <a href="<%=filename%>?catid=<%=Rs("CATID")%>&page=<%=n%>">最后一页</a>
<%
End If
'统计数目
%>
共<%=totalnumber%>个网站 页次：<%=CurrentPage%>/<%=n%>页</td>
</tr>
</table>
<%
End Function

'关闭recordset对象
Rs.close
set Rs = Nothing
%>
</td>
</tr>

</table></form></td>
</tr>
</table></td> </tr>
</table>
body></html>
<%
'关闭数据库连接
conn.close
set conn=NOThing
%>

红色部分的catid值取不到,但是蓝色部分的却可以,请教高手!
谢谢!

[此贴子已经被作者于2007-3-31 1:05:53编辑过]

狂汗，都看晕了，没看出来有什么区别！

你这不是求助,直接帮你干得了,发这么老多啊

这是整个文件 ...
正是代码完全一样,可红色部分catid取不到值.
谁能帮帮我啊 ,谢谢!!

[此贴子已经被作者于2007-3-30 10:55:07编辑过]

显示到下一页和最后一页的链接的页面可以正常取到“catid”值，但是从最后一页往前点的时候这个值就取不到了。
网上查了分页的代码，还是弄不明白为什么这里一样的代码会出现不同的结果。
请教各位前辈了。
谢谢！

是不是你做程序的时候~
是用rs.open 语句,con,1,3的 吗?
不然是不是指针只能往后面的读~~~~
该成下面那个试试~~~

谢谢,我刚才改过了1,1/1,2/1,3这几个参数都尝试过.还是无法取值.

试试这段代码,是我自己编的.在我的系统中成功分页(可能有些输入错误,如果有的话你能看出来)

谢谢楼上的朋友.
可惜还是没用

这个函数中的RS是不是在显示主页面中已经定义了?