ASP 分页问题，高手请进

来源：百度知道编辑：UC知道时间：2024/05/26 02:09:36

<%sub showpage(sfilename,totalnumber,maxperpage,ShowTotal,ShowAllPages,strUnit)
dim n, i,strTemp,strUrl
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
strTemp= "<table align='center'><form name='showpages' method='Post' action='" & sfilename & "'><tr><td>"
if ShowTotal=true then
strTemp=strTemp & "共 <b>" & totalnumber & "</b> " & strUnit & " "
end if
strUrl=JoinChar(sfilename)
if CurrentPage<2 then
strTemp=strTemp & "首页上一页 "
else
strTemp=strTemp & "<a href='" & strUrl & "page=1'>首页</a> "
strTemp=strTemp & "<a href='" & strUrl & "page=" & (CurrentPage-1) & "'>上

可以, 例子中总页数是n, 当前页是CurrentPage,用个循环就可以了

<%
sub showpage(sfilename,totalnumber,maxperpage,ShowTotal,ShowAllPages,strUnit)
dim n, i,strTemp,strUrl

'这里应该有对strUrl的定义.......

if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if

strTemp=""
for i = 1 to n
if i = CurrentPage then
strTemp = strTemp & " <font color=red>" & i & "</font> "
else
strTemp = strTemp & " <a href='" & strUrl & "?page=" & i & "'>" & i & "</a> "
end if
response.write strTemp
end sub
%>

这是直接从1到最后全部显出来, 至于怎么只显示一部分, 如当前页在1-10页时, 显示1-10的页链接, 在11-20时, 显示11-20页的链接. 这些就自己看着改吧.

应该能,但在网页头部应该还有代码的.

asp分页问题？高手请进？ ASP 分页问题，高手请进 ASP分页问题,求高手 ASP高手请进-分页显示记录 ASP问题-定义显示数量，分页时出错，高手请进！ 20分 asp分段查询分页问题?高手请进...在线等....急啊 asp分页问题~~~~请高手帮忙 ASP内容分页问题请教高手 ASP分页问题，高手进·！请教高手，关于asp分页技术问题