复制代码 代码如下:<% 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 %>

　　推荐阅读

　　关于使用存储过程创建分页

建立一个 Web 应用，分页浏览功能必不可少。这个问题是数据库处理中十分常见的问题。经典的数据分页方法是:ADO 纪录集分页法，也就是利用ADO自带的分页功能（利用游标）来实现分页。但这种分页方法仅适用于较小数据>>>详细阅读

本文标题：简单分页函数一 常用

地址：http://www.17bianji.com/kaifa2/ASP/33194.html

 1/2    1