广益通信

<% dim rs,mrecord,cpage,i set rs=server.createobject("adodb.recordset") rs.open "select * from book where L_remessage<>'' and L_remessage<>null order by L_time desc",conn,1,1 if not rs.eof then mrecord=20 '每页显示回复数设置 cpage=request("page") if not isnumeric(cpage) or cpage="" then cpage=1 else cpage=cint(cpage) rs.pagesize=mrecord rs.absolutepage=cpage for i=1 to mrecord if rs.eof then exit for %> <% rs.movenext next end if %>

留言回复

<%=rs("L_name")%>用户留言：
<%=rs("L_message")%>
管理回复：
<%=rs("L_remessage")%>

<%if cpage>2 then%> 上一页 <%else%> 上一页 <%end if%> <% pagecont=rs.pagecount stpage=cpage-2 enpage=cpage+2 if stpage<1 then enpage=enpage+abs(stpage)+1 if enpage>pagecont then enpage=pagecont stpage=1 end if if enpage>pagecont then stpage=stpage-(enpage-pagecont) if stpage<1 then stpage=1 enpage=pagecont end if for i=stpage to enpage %> -<%=i%>- <% next rs.close set rs=nothing set conn=nothing %> <%if cpage 下一页 <%else%> 下一页 <%end if%>