<% set rs=server.createobject("adodb.recordset") sql="select * from book where Phone='留言' and States=True order by id desc" rs.open sql,conn,1,1 MaxPerPage=3 '取得页数,并判断留言输入的是否数字类型的数据，如不是将以第一页显示 dim text,checkpage text="0123456789" Rs.PageSize=MaxPerPage for i=1 to len(request("page")) checkpage=instr(1,text,mid(request("page"),i,1)) if checkpage=0 then exit for end if next If checkpage<>0 then If NOT IsEmpty(request("page")) Then CurrentPage=Cint(request("page")) If CurrentPage < 1 Then CurrentPage = 1 If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount Else CurrentPage= 1 End If If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if Else CurrentPage=1 End if call list '显示帖子的子程序 Sub list()%>

当前位置：首页>> 在线留言     <% if not rs.eof then i=0 do while not rs.eof %>     姓名：　　<%=rs("CompanyName")%> 时间：　　<%=rs("Time")%> 留言类别：　　<%=rs("Guestbook")%>       <%=rs("content")%>   管理员回复：<%=rs("Rebook")%>     <%i=i+1 if i >= MaxPerpage then exit do rs.movenext loop end if %> <%end sub%>   <%Response.write "-> 全部-" Response.write "共" & "" & Cstr(Rs.RecordCount) & "" & "条留言          " Response.write "第" & "" & Cstr(CurrentPage) & "" & "/" & Cstr(rs.pagecount) & " " If currentpage > 1 Then response.write "首页 " Response.write "上一页 " Else Response.write "上一页 " End if If currentpage < Rs.PageCount Then Response.write "下一页 " Response.write "尾页  " Else Response.write "" Response.write "下一页  " End if %> 姓名： *（*为必填项）留言类别：-------学员留言客户留言其他 验证： 请在左边输入 留言：