asp最常用的分页函数

网学网为广大网友收集整理了，asp最常用的分页函数，希望对大家有所帮助！

复制代码 代码如下:
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<p align=''center''>还没找到文章</p>"
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=totalput\maxperpage
else
currentpage=totalput\maxperpage+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<totalput then
rs.move (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()
%>
<tr>
<td height="20" class="blueback2"><div align="center">ID</div></td>
<td class="blueback2"><div align="center"><a href="javascript:selectall()"><font color="#FFFFFF">选择</font></a></div></td>
<td width="355" class="blueback2"><div align="center">信息标题</div></td>
<td width="84" class="blueback2"><div align="center">更新日期</div></td>
<td width="40" class="blueback2"><div align="center">点击</div></td>
<td width="55" class="blueback2"><div align="center">添加人</div></td>
<td width="44" class="blueback2"><div align="center">编辑</div></td>
<td width="43" class="blueback2"><div align="center">删除</div></td>
<td width="62" class="blueback2"><div align="center">生成[<a href="javascript:void(null)" onClick="window.open(''cshengcheng.asp'','''',''width=0,height=0'')"><font color="#FFFFFF">归零</font></a>]</div></td>
</tr>
<%

i=1
do while not rs.eof
%>

<tr>
<td width="39" height="25" bgcolor="#D6DFF7"><div align="center"><%=rs("id")%></div></td>
<td width="34" bgcolor="#D6DFF7"><div align="center">
<input type="checkbox" name="dxyid" value="<%=rs("id")%>">
</div></td>
<td bgcolor="#D6DFF7"><a href="Article_show.asp?id=<%=rs("id")%>" target="_blank">[<%=rs("type_id")%>]<%thetitle1=rs("title")
strcounts=truelen(thetitle1)
response.write thetitle1
%></a></td>
<%
datetime=rs(