asp网页分页问题 - 增加输入转达页面 - 跳转页

发布网友发布时间：2022-10-13 10:39

共2个回答

热心网友时间：2023-11-03 04:23

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

热心网友时间：2023-11-03 04:23

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

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

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

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