<% const MaxPerPage=5 '分页显示的纪录个数 dim sql dim rs dim totalPut dim CurrentPage dim TotalPages dim i,j if not isempty(request("page")) then currentPage=cint(request("page")) else currentPage=1 end if set rs=server.createobject("adodb.recordset") sql="select * from book order by id desc" rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "

还没有任何留言!

" else totalPut=rs.recordcount 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 showpages showContent showpages else if (currentPage-1)*MaxPerPage <%if rs("email")<>"" then%> <%end if%> <%if rs("rebook")<>""then%> <%end if%>

用户名	<%=rs("name")%>    [<%=rs("time")%>]  ">
联系电话	<%=rs("Phone")%>
E-mail	<%=rs("email")%>
内 容	<%=rs("content")%>
回复内容	<%=rs("rebook")%>

<% i=i+1 if i>=MaxPerPage then exit do rs.movenext loop end sub sub showpages() dim n if (totalPut mod MaxPerPage)=0 then n= totalPut \ MaxPerPage else n= totalPut \ MaxPerPage + 1 end if if n=1 then response.write " " exit sub end if dim k response.write "

>> 留言分页 " for k=1 to n if k=currentPage then response.write "["+Cstr(k)+"] " else response.write "["+""+Cstr(k)+"] " end if next end sub %>