怎么用ASP实现分页(一)
来源:互联网 发布:服装网络供货 编辑:程序博客网 时间:2024/04/30 17:58
怎么用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(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
%>
- 怎么用ASP实现分页(一)
- 怎么用ASP实现分页(二)
- asp怎么实现内容页分页
- asp.net分页(一)
- asp 和 oracle 分页存储过程怎么实现啊
- ASP.NET怎么实现新闻页面的分页功能
- 分页技术原理与实现(一)——为什么要进行分页及怎么分页
- 分页技术原理与实现(一)——为什么要进行分页及怎么分页
- 分页技术原理与实现(一)——为什么要进行分页及怎么分页
- 分页技术原理与实现(一)——为什么要进行分页及怎么分页
- 分页技术原理与实现(一)——为什么要进行分页及怎么分页
- struts分页怎么实现
- java怎么实现分页
- oracle怎么实现分页
- oracle怎么实现分页
- Oracle怎么实现分页
- jsp分页实现(一)
- 用Asp.net实现新闻分页
- marquee基本语法的全解释
- 关于类变量和实列变量..及类方法和实例方法..
- 二十八条改善 ASP 性能和外观的技巧(一)
- 面向比特的链路控制规程HDLC与点对点协议PPP的比较
- ATMEL公司的AT91RM9200调试手册
- 怎么用ASP实现分页(一)
- 郑州哈尔滨,太多的感触...........................
- 怎么用ASP实现分页(二)
- 关于搞国外网赚的一些思路
- 自适应图片大小的弹出窗口
- oracle 发送电子邮件
- #pragma once的解释
- 弹出窗口和iframe
- 网页效果集合