<%
'分页显示函数
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编辑过]