在线留言-埃塞俄比亚芝麻

签写留言

<% page=CInt(request("page")) set rs=server.CreateObject("adodb.recordset") sql="select * from Feedback where Publish=true order by ID desc" rs.open sql,conn,1,1 if rs.eof and rs.bof then else i=1 rs.PageSize=5 if page=0 then page=1 pages=rs.pagecount if page > pages then page=pages rs.AbsolutePage=page for j=1 to rs.PageSize %>

标题:<%=rs("Title")%> 时间 <%=year(rs("Time"))%>-<%=month(rs("Time"))%>-<%=day(rs("Time"))%>

<%=rs("Content")%>

管理员给您的回复信息：

<%=rs("ReFeedback")%>

<% rs.movenext i=i+1 if rs.eof then exit for next %>

<%if Page<2 then response.Write "<< 首页 " response.write "上一页 " else response.write "<< 首页 " response.write "上一页 " end if if rs.pagecount-page<1 then response.write "下一页 " response.write "尾页 >>" else response.write "" response.write "下一页尾页 >>" end if end if rs.close set rs=nothing %>

写留言（留言内容最长不超过4000个字！）