<% dim action action=request.QueryString("action") Const MaxPerPage=10 '定义每页显示记录数 dim totalPut dim CurrentPage dim TotalPages dim j dim sql if Not isempty(request("page")) then currentPage=Cint(request("page")) else currentPage=1 end if %> <% set rs=server.CreateObject("adodb.recordset") rs.open "select * from test",conn,1,1 %> <% a="news" '这个是定义不同条件下打开数据表，以定义调用分页程序文件的参数。可多加参数，但要相应修改后面的参数。 if err.number<>0 then response.write "

数据库中暂时无数据

" end if if rs.eof And rs.bof then Response.Write "

对不起，没有符合条件记录！

" else totalPut=rs.recordcount 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 showContent showpage totalput,MaxPerPage,"fylogo.asp?lx="&a&"" else if (currentPage-1)*MaxPerPage <% sub showContent dim i i=0 do while not rs.eof%> <%i=i+1 if i>=MaxPerPage then Exit Do rs.movenext loop rs.close set rs=nothing End Sub %> <% Function showpage(totalnumber,maxperpage,filename) Dim n If totalnumber Mod maxperpage=0 Then n= totalnumber\maxperpage Else n= totalnumber\maxperpage+1 End If %>

>

<% if CurrentPage<2 Then %> 首 页 上一页 <% Else %> &page=1>首 页 &page=<% = CurrentPage-1 %>>上一页 <% End If If n-currentpage<1 Then %> 下一页 尾 页 <% Else %> &page=<% = (CurrentPage+1) %>>下一页 &page=<% = n %>>尾 页 <% End If %> 页次：<% = CurrentPage %>/<% = n %>页 <%=maxperpage%>个记录/页 共<%=totalnumber %> <% for i = 1 to n if i = CurrentPage then%> 第<%=i%>页 <%else%> 第<%=i%>页 <% end if next %>

<%End Function%> 为什么我显示的内容不是当天发表的内容.而是以前显示的内容为第一条记录输出