rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "
还没找到文章
"else
totalPut=rs.recordcount
maxperpage=18
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*maxperpage>totalput then
if (totalput mod maxperpage)=0 then
currentpage=totalputmaxperpage
else
currentpage=totalputmaxperpage+1
end if
end if
if currentpage=1 then
showpage1 totalput,maxperpage,"infotype.asp?id="&request("id")
showcontent()
showpage totalput,maxperpage,"infotype.asp?id="&request("id")
else
if (currentpage-1)*maxperpage
dim bookmark
bookmark=rs.bookmark
showpage1 totalput,maxperpage,"infotype.asp?id="&request("id")
showcontent
showpage totalput,maxperpage,"infotype.asp?id="&request("id")
else
currentpage=1
showpage1 totalput,maxperpage,"infotype.asp?id="&request("id")
showcontent
showpage totalput,maxperpage,"infotype.asp?id="&request("id")
end if
end if
end if
%>
<%
sub showcontent()
%>
<%
i=1
do while not rs.eof
%>
">
strcounts=truelen(thetitle1)
response.write thetitle1
%>
<%
datetime=rs("datetime")
yname=year(datetime)
mname=month(datetime)
if len(mname)<2 then mname="0"&mname
dname=month(datetime)
if len(dname)<2 then dname="0"&dname
foldername=yname&mname
%>
<%
i=i+1
if i>maxperpage then exit do
rs.movenext
loop
%>
<%
end sub
%>
<%
function showpage(totalnumber,maxperpage,filename)
%>
<%
dim n
if totalnumber mod maxperpage=0 then
n=totalnumbermaxperpage
else
n=totalnumbermaxperpage+1
end if
%>
共有<%=totalnumber%>/<%=maxperpage%>条，
当前页<%=currentpage%>/<%=n%>
<%if currentpage<2 then%>
[首页] [上一页]
<%else%>
">[首页] &page=<%=currentpage-1%>">[上一页]
<%end if%><% if n-currentpage<1 then%>
[下一页] [尾页]<%else%>&page=<%=currentpage+1%>">[下一页] &page=<%=n%>">[尾页]
<%end if%>
转到：
<%
end function
%>
<%
function showpage1(totalnumber,maxperpage,filename)
%>
<%
dim b
if totalnumber mod maxperpage=0 then
b=totalnumbermaxperpage
else
b=totalnumbermaxperpage+1
end if
%>
共有<%=totalnumber%>/<%=maxperpage%>条，
当前页<%=currentpage%>/<%=b%>
<%
dxystart=currentpage-5
if dxystart<1 then dxystart=1
dxyend=currentpage+5
if dxyend>b then dxyend=b
for dxy=dxystart to dxyend
if dxy=currentpage then
response.write "["&""&dxy&""&"]"&" "
else
response.write "["&dxy&""&"]"&" "
end if
next
%>
<%
end function
%>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
魔客吧温馨提示：如果你想搭建商城或者电子商务网站，那么到魔客吧的 ecshop模板 频道看看吧，这里有很多的ecshop商城模板哦！
分享到 更多 <script type="text/javascript" id="bdshell_js"></script><script type="text/javascript">document.getElementById("bdshell_js").src = "http://share.baidu.com/static/js/shell_v2.js?cdnversion=" + new Date().getHours();</script> 本文地址：http://www.moke8.com/article-21959-1.html文章标题：asp最常用的分页函数 收藏邀请 最新分享资源
包装材料生产线设备织梦模板
dedecms模板 by moke
响应式淘宝美工摄影类织梦模板
dedecms模板 by moke
响应式金属制品dedecms模板
dedecms模板 by moke
响应式无人机电子产品dede模板
dedecms模板 by moke最新评论
相关分类
- PHP编程
- ASP编程
- NET编程
- JSP编程
- MSSQL教程
- MYSQL教程
精品推荐
精华 中英双语响应式电子企业织梦模板
dedecms模板 by moke极品资源
极品 高端建筑装饰带手机版十配色织梦模板
dedecms模板 by moke原创模板
魔币 多配色创意metro风格企业
下载排行
- 01包装材料生产线设备织梦模板
资源分类
企业网站模板 企业网站源码 个人网站模板 个人网页模板 手机wap网站 门户网站模板 商业源码 淘宝客程序 html5网站 网站后台模板 html网页模板 学校网站模板 <script type="text/javascript">var cookieLogin = Ajax("TEXT");cookieLogin.get("connect.php?mod=check&op=cookie", function() {});</script><script type="text/javascript">_attachEvent(window, 'load', getForbiddenFormula, document);function getForbiddenFormula() {var toGetForbiddenFormulaFIds = function () {ajaxget('plugin.php?id=cloudsearch&formhash=10534909');};var a = document.body.getElementsByTagName('a');for(var i = 0;i < a.length;i++){if(a[i].getAttribute('sc')) {a[i].setAttribute('mid', hash(a[i].href));a[i].onmousedown = function() {toGetForbiddenFormulaFIds();};}}var btn = document.body.getElementsByTagName('button');for(var i = 0;i < btn.length;i++){if(btn[i].getAttribute('sc')) {btn[i].setAttribute('mid', hash(btn[i].id));btn[i].onmousedown = function() {toGetForbiddenFormulaFIds();};}}}</script>联系我们 | 关于我们 | 招商加盟 | 版权声明 | 帮助中心 | 广告服务 | 网站地图
欢迎浏览魔客吧提供的 asp最常用的分页函数 信息，若本站中的信息侵犯了您的权益，请与本站管理员联系Copyright @ 2010-2015 魔客吧 版权所有 蜀ICP备09014119号 川公网安备51050202000165号 <script type="text/javascript" src="http://tcss.qq.com/ping.js?v=1VERHASH" charset="utf-8"></script><script type="text/javascript" reload="1">pgvMain({"discuzParams":{"r2":"5238379","ui":0,"rt":"portal","pn":1,"qq":"000"},"extraParams":""});</script>
积分 0, 距离下一级还需 积分 <script type="text/javascript">_attachEvent(window, 'scroll', function(){showTopLink();});</script><script>(function(){ var bp = document.createElement('script'); var curProtocol = window.location.protocol.split(':')[0]; if (curProtocol === 'https'){ bp.src = 'https://zz.bdstatic.com/linksubmit/push.js'; } else{ bp.src = 'http://push.zhanzhang.baidu.com/push.js'; } var s = document.getElementsByTagName("script")[0]; s.parentNode.insertBefore(bp, s);})();</script> <script type="text/javascript"> var tipsinfo = '5238379|X2.5|0.6||0||0|7|1526822181|bf47d651140b432ece97ee595a4cfb0e|2'; </script> <script src="http://discuz.gtimg.cn/cloud/scripts/discuz_tips.js?v=1" type="text/javascript" charset="UTF-8"></script><script type="text/javascript" src="https://idm-su.baidu.com/su.js"></script>