留言管理

<% if not isempty(request("page")) then page=cint(request("page")) else page=1 end if set rs=server.createobject("adodb.recordset") %> 留言管理 <% rs.close sql="select * from message where hf_content is not null order by ms_Id desc" rs.open sql,conn,1,1 RS.PageSize=6 if page<=0 then page=1 if page>=rs.pagecount then page=Rs.pagecount if not(RS.bof or RS.eof) then RS.AbsolutePage=page i=0 %>


留言总数:<%=(Rs.RecordCount)%> \| 当前页:<%=page%>/<%=Rs.pagecount%> \|

留言者信息

留言内容

<% do while not rs.eof %>

<%=rs("ms_UserName")%>

<%=rs("ms_title")%>

回复： <%=rs("hf_content")%>

留言于： <%=rs("inputdate")%>

<% i=i+1 Rs.movenext if i>=Rs.PageSize then exit do loop %>

<% rs.close set rs=nothing conn.close set conn=nothing %>