海外邮件中继，海外退信中继，美国高速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条评论!