首页 / ASP / 简单分页函数一 常用
简单分页函数一 常用
内容导读
互联网集市收集整理的这篇技术教程文章主要介绍了简单分页函数一 常用,小编现在分享给大家,供广大互联网技能从业者学习和参考。文章包含4245字,纯文字阅读大概需要7分钟。
内容图文
![简单分页函数一 常用](/upload/InfoBanner/zyjiaocheng/386/2d9347e578c64cd39fb9170b150a3a18.jpg)
<%
page=trim(request("page"))
maxperpage=40
first=true
last=true
dim rs
set rs=server.CreateObject("adodb.recordset")
sql="select id,title,add1,cartype,isred,enterdate,hits from newnews where classtype=0 and pass=1 order by id desc"
rs.open sql,conn,1,1
rs.pagesize=maxperpage
totalpage=rs.pagecount
if len(page)=0 then
intpage=1
first=false
else
if cint(page)<=1 then
intpage=1
first=false
else
if cint(page)>=rs.pagecount then
intpage=rs.pagecount
last=false
else
intpage=cint(page)
end if
end if
end if
if not rs.eof then
rs.absolutepage=intpage
end if
for a=1 to maxperpage
if rs.eof then exit for
%>
<tr <%if (a mod 2)=0 then
response.write "bgcolor=#ffffff"
else
response.write "bgcolor=#f6f6f6"
end if
%>>
<td height="20"><div align="center"><%=a%></div></td>
<td><div align="center">
<%add=rs("add1")
substring add,4
%>
</div></td>
<td>
<a href="displaynews.asp?id=<%=rs("id")%>" target="_blank">
<%
if rs("isred")=True then
%>
<font color="red">
<%title=rs("title")
substring title,20
%></font>
<%else
title=rs("title")
substring title,20
%>
<%
end if
%>
</a></td>
<td><div align="center"><%=rs("cartype")%></div></td>
<td><div align="center">
<%thetime=rs("enterdate")
themon=datepart("m",thetime)
if len(themon)<2 then themon="0"&themon
theday=datepart("d",thetime)
if len(theday)<2 then theday="0"&theday
ther=themon&"-"&theday
response.write ther
%>
</div></td>
<td><div align="center"><%=rs("hits")%></div></td>
</tr>
<%
rs.movenext
if rs.eof then exit for
next
%>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="20" bgcolor="#f6f6f6">
<div align="center">
<%if rs.pagecount>0 then %>
共有<%=rs.recordcount%>条|当前页<%=intpage%>/
<%
=rs.pagecount%>
<% end if %>
<%if intpage>1 then%>
<a href="<%request.ServerVariables("SCRIPT_NAME")%>?
page=1">首页</a>
<%else%>
首页
<%end if%>
<%if first then%>
<a href="<%request.ServerVariables("SCRIPT_NAME")%>?
page=<%=intpage-1%>">上一页</a>
<%else%>
上一页
<%end if%>
<%if last and intpage<rs.pagecount then%>
<a href="<%request.ServerVariables("SCRIPT_NAME")%>?
page=<%=intpage+1%>">下一页</a>
<%else%>
下一页
<%end if%>
<%if intpage<rs.pagecount then%>
<a href="<%request.ServerVariables("SCRIPT_NAME")%>?
page=<%=rs.pagecount%>">尾页</a>
<%else%>
尾页
<%end if%>
转到
<select onChange="location=this.options
[this.selectedIndex].value">
<%for b=1 to rs.pagecount
if b=intpage then%>
<option value="<%request.ServerVariables("SCRIPT_NAME")%>?page=<%=b%>" selected>
第<%=b%>页</option>
<% else %>
<option value="<%request.ServerVariables("SCRIPT_NAME")%>?page=<%=b%>">第<%=b%>页
</option>
<%end if
next%>
</select>
</div></td>
</tr>
</table>
</body>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
内容总结
以上是互联网集市为您收集整理的简单分页函数一 常用全部内容,希望文章能够帮你解决简单分页函数一 常用所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错,欢迎将互联网集市网站推荐给程序员好友。
内容备注
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 gblab@vip.qq.com 举报,一经查实,本站将立刻删除。
内容手机端
扫描二维码推送至手机访问。