ahc神仙水不要在用了:asp网页分页问题 - 增加输入转达页面 - 跳转页

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/09 19:37:27
在文档框输入 .然后点按纽或者回车 则直接到达分页.
以下是我目前用的分页代码. 请高人帮添加上直接到达输入页这项功能

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JavaScript">
<!--
function demo(Page,scrl){
if (false)window.close();
if (!window.win || win.closed)
{
win=open(Page,"gouwu","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,top=2,width=450,height=350,scrollbars="+scrl+",resizable=1");
}
else{
win.close();
win=open(Page,"gouwu","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,top=2,width=450,height=350,scrollbars="+scrl+",resizable=1");
}
}
//-->
</script>

这里是显示商品信息的代码. 与分页无关?

<table width="100%" border="0" cellspacing="2" cellpadding="2" align="center" height="30">
<tr>
<td align="right">第<%=CurrentPage%>页   共<%=Rs.PageCount%>页
<a href="?<%=temp%>page=1">首页</a> |
<a href="?<%=temp%>page=<%=currentpage-5%>">前五页</a> |
<a href="?<%=temp%>page=<%=currentpage-1%>">上一页</a> |
<a href="?<%=temp%>page=<%=currentPage+1%>">下一页</a> |
<a href="?<%=temp%>page=<%=currentpage+5%>">后五页</a> |
<a href="?<%=temp%>page=<%=Rs.PageCount%>">尾页</a>
共<%=rs.recordcount%>件商品</td>
</tr>
</table>
<%rs.close%>

不理解的地方:

好象点按纽需要提交一些属性 ? 为什么 下一页 上一页则直接就可以出来呢?

<td align="right">第<%=CurrentPage%>页 共<%=Rs.PageCount%>页
<a href="?<%=temp%>page=1">首页</a> |
<a href="?<%=temp%>page=<%=currentpage-1%>">上一页</a> |
<a href="?<%=temp%>page=<%=currentPage+1%>">下一页</a> |
<a href="?<%=temp%>page=<%=Rs.PageCount%>">尾页</a>
共<%=rs.recordcount%>件商品</td>
</tr>
我听朋友说过 确实是这样. 您说的很对. 页面之间的参数传递有很多方法

在主页面链接地址文件的的后面加入?变量名称=变量的值

跳转到的页面接受时使用request.QueryString(变量名称)

但是我技术真的不太好. 您方便写一下代码给我吗? 在我原来代码上加上. 万分感谢
实在是因为我技术真的不行. 确实不懂. 谢谢您 EMAIL: suntao000@sohu.com

页面之间的参数传递有很多方法,上一页和下一页,用的一般是链接传递

在主页面链接地址文件的的后面加入?变量名称=变量的值

跳转到的页面接受时使用request.QueryString(变量名称)

这样就可以接收到这个数据了,翻页语句一般是在一个页面来完成的,也就是跳转到自己.

function pagecute(allpages,viewpage,pageurl,pp)
if int(allpages)=0 then
pagecute="<font color=red >[1]</font>"
exit function
end if
dim pn,pi,page_num,ppp,pl,pr:pi=1:ppp=pp\2
if pp mod 2 = 0 then ppp=ppp-1
pl=viewpage-ppp:pr=pl+pp-1
if pl<1 then
pr=pr-pl+1:pl=1
if pr>allpages then pr=allpages
end if
if pr>int(allpages) then
pl=pl+allpages-pr:pr=allpages
if pl<1 then pl=1
end if
if pl>1 then
response.write pagecute&" <a href='"& pageurl &"' title='第一页'>[|<]</a> <a href='"& pageurl &"?pageno="&pl-1&"' clases=706501 title='上一页'>[<]</a> "
end if
for pi=pl to pr
if cint(viewpage)=cint(pi) then
response.write pagecute&" <font color=red>[" & pi & "]</font> "
else
response.write pagecute&" <a href='"& pageurl &"?pageno="& pi &"' title='第 " & pi & " 页'>[" & pi & "]</a> "
end if
next
if pr<allpages then
pagecute=pagecute&" <a href='"& pageurl &"?pageno="&pi&"' title='后一页'>[>]</a> <a href='"& pageurl &"?pageno="& allpages &"' title='最后一页'>[>|]</a> "
end if
end function