2个通用的ASP分页方法

2008-02-23 09:44:26来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

本人写了2个通用的ASP分页方法,供大家参考!
<%@ Language=VBScript %>
<HTML>
<HEAD>
</HEAD>
<BODY>

<%
dim currentpage '定义当前页
dim filename '文件名
Const MaxPerPage=20 '每页显示的记录个数
dim totalnumber '记录总数
filename="showpages.asp"
totalnumber=200 '设置记录总数为200

if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
showpages totalnumber,MaxPerPage,filename
%>
</BODY>
</HTML>
<%'定义分页的函数,以totalnumber,maxperpage,filename作为函数的入口。
function showpages(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber maxperpage
else
n= totalnumber maxperpage 1
end if
response.write "<form method=Post action="&filename&">"
response.write "<p align='center'>记录分页&nbsp;"
if CurrentPage<2 then
response.write "<font color='999966'>首页 上一页</font>&nbsp;"
else
response.write "<a href="&filename&"?page=1>首页</a>&nbsp;"
response.write "<a href="&filename&"?page="&CurrentPage-1&">上一页</a>&nbsp;"
end if
if n-currentpage<1 then
response.write "<font color='999966'>下一页 尾页</font>"
else
response.write "<a href="&filename&"?page="&(CurrentPage 1)
response.write ">下一页</a> <a href="&filename&"?page="&n&">尾页</a>"
end if
response.write "&nbsp;页次:<strong><font color=red>"&CurrentPage&"</font>/"&n&"</strong>页 &nbsp;"
response.write " 转到:<input type='text' name='page' size=4 maxlength=10 class=smallInput

value="&currentpage&">"
response.write "<input class=buttonface type='submit' value=' Goto ' name='cndok'></span></p></form>"

end function
%>

--------------------------------------------------------------------------

<%@ Language=VBScript %>
<HTML>
<HEAD>
</HEAD>
<BODY>

<%
dim currentpage '定义当前页
dim filename '文件名
Const MaxPerPage=20 '每页显示的记录个数
dim totalnumber '记录总数
filename="showpages.asp"
totalnumber=200 '设置记录总数为200

if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
showpages totalnumber,MaxPerPage,filename
%>
</BODY>
</HTML>
<%'定义分页的函数,以totalnumber,maxperpage,filename作为函数的入口。
function showpages()
dim n
if (totalnumber mod MaxPerPage)=0 then
n= totalPut MaxPerPage
else
n= totalPut MaxPerPage 1
end if
if n=1 then
exit sub
end if
dim k
response.write "<p align='left'>&gt;&gt; 分页 "
for k=1 to n
if k=currentPage then
response.write "[<b>" Cstr(k) "</b>] "
else
response.write "[<b>" "<a href="&filename&"?page=" cstr(k) ">" Cstr(k) "</a></b>] "
end if
next
response.write "</p>"
end function
%>

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:ASP实用函数库

下一篇:一段防注入的通用脚本