<%
'分页显示函数
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”值，但是从最后一页往前点的时候这个值就取不到了。
网上查了分页的代码，还是弄不明白为什么这里一样的代码会出现不同的结果。
请教各位前辈了。
谢谢！

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

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

谢谢~ 我再试试!