首页 | 心情日记 | 建站心得 | 编程技术 | 大盘分析 | 股市信息 | 学习园地 | 电脑技巧 | 物流外贸 | 另类其它 | 站长推荐 | 给我留言 | 相册

用户登陆
用户:
密码:
 
不保存保存一天
保存一月保存一年

站点日历
73 2021 - 7 48
    123
45678910
11121314151617
18192021222324
25262728293031


站点统计

最新评论

日志搜索

 标题   内容


ASP时间函数详解 ASP通用分页源代码
未知 一个简单易用的ASP分页代码   [ 日期:2010-01-15 00:35:03 ]   [ 来自:本站原创 ]

海外邮件中继,海外退信中继,美国高速VPS,不限流量VPN,邮局维护和管理,邮件网关,EMOS邮件中继,POSTFIX邮件中继,Winwebmail邮件中继,Winmail邮件中继,DBMail邮件中继,JDMail邮件中继,Exchange邮件中继,MDaemon邮件中继 淘宝店:http://shantan.taobao.com 云邮科技官网:www.yunrelay.com

【字体设置:
<%
'打开数据记录
set rs=server.CreateObject("ADODB.RECORDSET")
sql="select * from xxxx order by yyyy desc" 'xxxx,yyyy根据自己的情况修改
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("当前还没有内容...")
else
dim currentpage 
maxperpage=20 '修改每页显示记录数               
rs.pagesize=maxperpage              
currentpage=request.querystring("pageid")              
if currentpage="" then              
currentpage=1              
elseif currentpage<1 then              
currentpage=1              
else              
currentpage=clng(currentpage)              
if currentpage > rs.pagecount then              
currentpage=rs.pagecount              
end if              
end if              
if not isnumeric(currentpage) then              
currentpage=1              
end if              
dim totalput,n              
totalput=rs.recordcount              
if totalput mod maxperpage=0 then              
n=totalput\maxperpage              
else              
n=totalput\maxperpage+1              
end if              
if n=0 then              
n=1              
end if              
rs.move(currentpage-1)*maxperpage              
i=0     
w=1         
do while i< maxperpage and not rs.eof  
%>


<!--这里显示内容-->

<%
'循环记录
i=i+1      
w=w+1
rs.movenext
loop
end if
rs.close
set rs=nothing
%>


<!--调用分页代码-->
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr><td width="85%" align="center"> 共有<font color="#FF0000"><%=totalput%></font>篇 每页<%=maxperpage%>篇 当前页数:<%=currentpage%>/<% =n%> <%k=currentpage if k<>1 then%>
<a href="?pageid=1"> <font face=webdings size=2>9</font>首 页</a> <a href="?pageid=<%=k-1%>"> <font face=webdings size=2>7</font>前 页</a>
<%else%>
<font face=webdings size=2>9</font>首 页 <font face=webdings size=2>7</font>前 页
<%end if%>
<%if k<>n then%>
<a href="?pageid=<%=k+1%>"> 后 页<font face=webdings size=2>8</font></a> <a href="?pageid=<%=n%>"> 末 页<font face=webdings size=2>:</font></a>
<%else%>
后 页<font face=webdings size=2>8</font> 末 页<font face=webdings size=2>:</font>
<%end if%>            
</td>
<td width="15%" align="center"><select name="pageid" onchange="javascript:location=this.options[this.selectedIndex].value;">
<%
for i = 1 to n
if i = currentpage then%>
<option value="?pageid=<%=i%>" selected>第<%=i%>页</option>
<%else%>
<option value="?pageid=<%=i%>">第<%=i%>页</option>
<%
end if
next
%>
</select>
</td>
</tr>
</table>


暂时没有评论
   发表评论 - 不要忘了输入验证码哦!
作者: 用户:  密码:  我要注册 验证码: 
为防止广告注册机程序,验证码不会自动显示,请点击此处显示或者(刷新)验证码!
评论:

禁止表情
禁止UBB
禁止图片
识别链接
识别关键字
确定发布?
最多可以输入200个字,目前你已经输入了0个字;你今日还可以发表10条评论!
 
   

CopyRight © 2008-2010 广东金融学院030904班 All Rights Reserved
Powered by www.030904.com