技术文档 当前位置:首页> 技术文档

<%page=request("page") if page<>"" and isnumeric(page) then page=int(page) else page=1 end if set rs2=server.createobject("adodb.recordset") sql="select * from news where n_class=18 order by id desc" rs2.open sql,cn,3,3 rall=rs2.recordcount const size=20 rs2.pagesize=size tpage=int(rall/size) if rall mod size<>0 then tpage=tpage+1 end if if page>tpage or page<1 then page=1 end if rs2.absolutepage=page while not rs2.eof and n
·"><%=rs2("title")%> <%=rs2("date")%>
<%rs2.movenext n=n+1 wend rs2.close set rs2=nothing %>
<%if tpage=1 then%> 首页 上页 下页 尾页 <%else select case page case 1%> 首页 上页 下页 尾页 <%case tpage%> 首页 上页 下页 尾页 <%case else%> 首页 上页 下页 尾页 <%end select end if%> <%=page%>/<%=tpage%>页