<% set rs=server.createobject("adodb.Recordset") sql="select * from book where deletestate=0 order by id desc" rs.open sql,conn,1,1 'if not isnumeric(request("page")) Then ' page=1 'else ' Page=int(abs(request("page"))) 'end if rs.pagesize=20 if request("page")<>"" then epage=cint(request("page")) if epage<1 then epage=1 if epage>rs.pagecount then epage=rs.pagecount else epage=1 end if rs.absolutepage=epage %>

共找到 <%=rs.recordcount%>条记录,现在是第<%=epage%>页,共有<%=rs.pagecount%>
首页  前一页  后一页  末页
 
<% i=1 ' do until rs.eof for i=0 to rs.pagesize-1 if rs.bof or rs.eof then exit for id=rs("id") name=rs("name") email=rs("email") homepage=rs("homepage") qq=rs("qq") content=rs("content") addtime=rs("addtime") reply=rs("reply") head=rs("head") T_Emot=rs("T_Emot") %> <% mypagesize=mypagesize-1 i=i+1 ' rs.movenext ' loop rs.movenext() next %>
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  <% response.write "  "&replace(rs("content"),vbnewline,"
  ",1,-1,0) %>

网友:<%=name%>
<%=name%>

主页 邮箱 QQ:<%=qq%> 留言时间:<%=addtime%> * * * * * * * * * * * * * * * * * * * * *
<% if reply<>"没有" then %> <%else%> <%end if%>
 回 复: <% response.write "  "&replace(rs("reply"),vbNewline,"
  ",1,-1,0) %>
 
 
<%if session("flag")="1" then%> ','_top','') class="input1"> ','_top','') class="input1"> ','_top','') class="input1"> <% set rs1=server.createobject("adodb.recordset") sql="select * from userid where userid='"&rs("userid")&"'" rs1.open sql,conn,1,1 response.write rs("userid") if rs1.recordcount>0 then %> 此ID已经被封 " style="color:red">解除封闭 <% else %> " style="color:red">封ID <% end if end if %>

共找到 <%=rs.recordcount%>条记录,现在是第<%=epage%>页,共有<%=rs.pagecount%>
首页  前一页  后一页  末页
<% rs.close set rs=nothing conn.close set conn=nothing %>