<% set rs=server.CreateObject("adodb.recordset") temp=1 Ssql="select * from Book where pass=true order by time desc,id desc" rs.open Ssql,conn,1,1 if not rs.eof then rs.PageSize =8 '每页记录条数 result_num=rs.RecordCount '记录总数 maxpage=rs.PageCount page=request("page") if Not IsNumeric(page) or page="" then page=1 else page=cint(page) end if if page<1 then page=1 elseif page>maxpage then page=maxpage end if rs.AbsolutePage=Page else result_num=0 maxpage=0 page=0 end if if not rs.eof then for i=1 to rs.PageSize %>

" > <%=rs("users")%>   邮箱：<%=rs("email")%>    QQ号：<%=rs("oicq")%>     <% if rs("repcontent")<>"" then%> <% end if%> <%=HTMLEncode(rs("content"))%> 老师回复: <%=rs("repcontent")%>

<% rs.movenext if rs.EOF then Exit For next end if rs.close %> <% if maxpage>1 then %> <% end if %>

<%call LastNextPage(maxpage,page,result_num) %>

*昵称：
邮件：
QQ号码：
*内容：	<% for i=1 to 12%> > <% next%>
验证码：