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> (编辑:银川站长网) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |