简单分页函数一常用
函数 简单 常用 分页
2023-06-13 09:13:41 时间
<%
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
%>
相关文章
- fwrite和fread函数的用法小结_fwrite和fread
- Go常见错误集锦之copy函数复制slice时为什么不成功
- 【C++ 语言】面向对象 ( 函数重载 | 运算符重载 | 运算符重载两种定义方式 | 拷贝构造方法 | RVO 优化 | NRVO 优化 )
- Oracle的REGEXP_REPLACE函数简单用法详解数据库
- Oracle的substr函数简单用法详解数据库
- MySQL中实用的函数技巧(mysql的函数)
- Linux 中定义函数的简单方法(linux定义函数)
- 深入探讨Linux中的比较函数(linux比较函数)
- MySQL日期转换函数:轻松解决时间转换困境(mysql日期转换函数)
- Linux上简单实用的函数示范(linux常用函数)
- Linux中常用C语言函数分析(linux常用c函数)
- MSSQL使用连接字符串函数的简单介绍(mssql连接字符串函数)
- Oracle中的Mod函数让您的开发更加简单(mod() oracle)
- 自定义PHP分页函数
- 文件遍历排序函数
- PHP函数学习简单小结
- PHP几个数学计算的内部函数学习整理
- Python的lambda匿名函数的简单介绍
- php初始化对象和析构函数的简单实例
- JS中实现简单Formatter函数示例代码
- Python函数嵌套实例