方便你ASP分页
来源:互联网 发布:mac怎么登陆apple id 编辑:程序博客网 时间:2024/04/30 03:47
本人写了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'>记录分页 "
if CurrentPage<2 then
response.write "<font color='999966'>首页 上一页</font> "
else
response.write "<a href="&filename&"?page=1>首页</a> "
response.write "<a href="&filename&"?page="&CurrentPage-1&">上一页</a> "
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 " 页次:<strong><font color=red>"&CurrentPage&"</font>/"&n&"</strong>页 "
response.write " 转到:<input type='text' name='page' size=4 maxlength=10 class=smallInput
value="¤tpage&">"
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'>>> 分页 "
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
%>
- 方便你ASP分页
- 比较方便的ASP分页程序
- 方便你我他
- asp分页
- asp分页
- ASP分页
- ASP分页
- asp分页
- asp分页
- ASP 分页
- ASP分页
- asp分页
- asp分页
- ASP分页
- ASP 分页
- ASP分页
- ASP分页
- 一个实用的ASP分页函数,解决你重复写分页代码的烦恼
- JMX架构的了解 (MBean部分)
- 用Zend Encode编写开发PHP程序
- 制作浏览器地址栏&收藏夹里的小图标 [转载]
- 在GD中输出汉字的函数的改进
- java设计模式之创建模式--singleton (demo)
- 方便你ASP分页
- 判断在线用户的方法
- 每个开发人员现在应该下载的十种必备工具
- AS2Doc: 一个AS文档生成软件
- 可设置同一IP弹出窗口次数和时间的弹窗代码
- 彼得·德鲁克的一句话
- [Design Patterns]高级 DAO 编程(转贴)
- JDBC连接数据库经验集萃 (收藏)
- 记事贴5:昨天发高烧-38.9摄氏度,今天还晕晕糊糊的,头脑不清醒!