中科新闻网鱼缸虹吸管制作图解:如何在ASP页面上实现 热键翻页功能
来源：百度文库 编辑：中科新闻网 时间：2024/05/03 11:24:09
我是个菜鸟...想改个漫画站。。请问怎么样实现热键翻页功能~~~~希望高手能详细解答。回答的好一定加分
下面是可用程序中截取出来的一段代码，数据库连接和打开记录集就不写了，分页程序如下：
aaa.asp
<%
''下面是分页源代码:
nmn=rs.recordcount'判断记录条数
if not rs.eof then
rs.pagesize=20'每页20条记录
numm=rs.pagesize
pag=nmn\numm+1'计算共几页
if nmn mod numm="0" then
pag=pag-1
end if
popo=request("page")'获取表单提交第几页
if popo="" or popo<1 or popo > pag then
pap=1
else
pap=popo
end if
while not rs.eof and numrows<rs.pagesize'循环显示每页的记录
..........
rs.movenext
numrows=numrows+1
wend
'下面是翻页源代码:
if pap>1 then%>
<a href="aaa.asp?page=<%=pap-1%>">上一页</a>
<%else%>
<font color="#999999">上一页</font>
<%end if%>
<%if pap+1=<pag then%>
<a href="aaa.asp?page=<%=pap+1%>">下一页</a>
<%else%>
<font color="#999999">下一页</font>
<%end if%>