首页 / ASP / asp最常用的分页函数
asp最常用的分页函数
内容导读
互联网集市收集整理的这篇技术教程文章主要介绍了asp最常用的分页函数，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含6901字，纯文字阅读大概需要10分钟。
内容图文
代码如下: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("datetime")
yname=year(datetime)
mname=month(datetime)
if len(mname)<2 then mname="0"&mname
dname=month(datetime)
if len(dname)<2 then dname="0"&dname
foldername=yname&mname
%>
<td bgcolor="#D6DFF7"><div align="center"><a href="<%=htmlfolder%><%=foldername%>/<%=rs("id")%>.htm" title="查看生成的静态页面" target="_blank"><%=rs("datetime")%></a></div></td>
<td bgcolor="#D6DFF7"><div align="center"><%=rs("hits")%></div></td>
<td bgcolor="#D6DFF7"><div align="center"><%=rs("author")%></div></td>
<td bgcolor="#D6DFF7"><div align="center"><a href="news_edit.asp?dxy_id=<%=rs("id")%>">修改</a></div></td>
<td bgcolor="#D6DFF7"><div align="center"><a href="javascript:delxx(<%=rs("id")%>)">删除</a></div></td>
<td bgcolor="#D6DFF7"><div align="center"><a href="javascript:makehtml(<%=rs("id")%>)">生成(<a href="javascript:void(null)" onClick="window.open('cshengcheng.asp?id=<%=rs("id")%>','','width=0,height=0')"><%=rs("shengcheng")%>)</a></div></td>
</tr>
<%
i=i+1
if i>maxperpage then exit do
rs.movenext
loop
%>
<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 class="blueback2"><div align="center">信息标题</div></td>
<td class="blueback2"><div align="center">更新日期</div></td>
<td class="blueback2"><div align="center">点击</div></td>
<td class="blueback2"><div align="center">添加人</div></td>
<td class="blueback2"><div align="center">编辑</div></td>
<td class="blueback2"><div align="center">删除</div></td>
<td class="blueback2"><div align="center">生成</div></td>
</tr>
<%
end sub
%>
<tr>
<td height="20" colspan="9" bgcolor="#D6DFF7"><label>
<input type="button" name="dxydo" value="全选" onClick="javascript:selectall()">
<input type="submit" name="dxydo" value="删除" onClick="{if(confirm('确定要删除选择的信息吗')){document.formselect.submit();return true;}return false;}">
<input type="submit" name="dxydo" value="生成">
<input type="submit" name="dxydo" value="移动">
</label></td>
</tr>
<%
function showpage(totalnumber,maxperpage,filename)
%>
<tr>
<td height="20" colspan="9" bgcolor="#D6DFF7">
<%
dim n
if totalnumber mod maxperpage=0 then
n=totalnumber\maxperpage
else
n=totalnumber\maxperpage+1
end if
%>
<div align="center">共有<%=totalnumber%>/<%=maxperpage%>条，
当前页<%=currentpage%>/<%=n%>
<%if currentpage<2 then%>
[首页] [上一页]
<%else%>
<a href="<%=filename%>"><font color="red">[首页]</font></a> <a href="<%=filename%>&page=<%=currentpage-1%>"><font color="red">[上一页]</font></a>
<%end if%><% if n-currentpage<1 then%>
[下一页] [尾页]<%else%><a href="<%=filename%>&page=<%=currentpage+1%>"><font color="red">[下一页]</font></a> <a href="<%=filename%>&page=<%=n%>"><font color="red">[尾页]</font></a>
<%end if%>
转到：<select name="dd" class="sle"
onChange="location.href=this.options[this.selectedIndex].value">
<%for j=1 to n
if currentpage=j then
%><option value="<%=filename%>&page=<%=j%>" selected><%=j%></option>
<%
else
%>
<option value="<%=filename%>&page=<%=j%>"><%=j%></option>
<%
end if
next
%>
</select>
</div> </td>
</tr>
<%
end function
%>
<%
function showpage1(totalnumber,maxperpage,filename)
%>
<tr>
<td height="20" colspan="9" bgcolor="#D6DFF7">
<%
dim b
if totalnumber mod maxperpage=0 then
b=totalnumber\maxperpage
else
b=totalnumber\maxperpage+1
end if
%>
<div align="center">共有<%=totalnumber%>/<%=maxperpage%>条，
当前页<%=currentpage%>/<%=b%>
<%
dxystart=currentpage-5
if dxystart<1 then dxystart=1
dxyend=currentpage+5
if dxyend>b then dxyend=b
for dxy=dxystart to dxyend
if dxy=currentpage then
response.write "[<a href="&filename&"&page="&dxy&">"&"<font color=red>"&dxy&"</font>"&"</a>]"&" "
else
response.write "[<a href="&filename&"&page="&dxy&">"&dxy&"</font>"&"</a>]"&" "
end if
next
%>
</div> </td>
</tr>
<%
end function
%>
</form>
</table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
内容总结
以上是互联网集市为您收集整理的asp最常用的分页函数全部内容，希望文章能够帮你解决asp最常用的分页函数所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。
内容备注
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。
内容手机端
扫描二维码推送至手机访问。
来源：【匿名】