文心春萌

下面是我写文章系统一直使用的分页代码，拿出来和大家一起分享一下，估计很多象我这样的菜鸟都很需要的，我只是简单的注释了一下代码的使用，大家在使用的时候要根据自己的需要来修改。


<%
'打开数据记录
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=Sitebooknum               
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>