<% 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 shopping 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("obj")%>		">删除
公司名称	<%=rs("Comane")%>	日期:	<%=rs("Time")%>
联系人	<%=rs("Somane")%>
联系电话	<%=rs("Phone")%>
联系传真	<%=rs("Fox")%>
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 %>