<%face="face/"%> <% set rs=server.CreateObject("adodb.recordset") sql="select * from message where toadmin=161207 order by id desc " rs.open sql,conn,1,3 if rs.eof then response.write("

　暂无留言

") else Allrecord=rs.Recordcount path=request.ServerVariables("path_info") rs.pagesize= system("email") on error resume next page=clng(request("page")) if page<1 then page=1 if page>rs.pagecount then page=rs.pagecount rs.AbsolutePage = Page For iPage = 1 To rs.PageSize RecNo = (Page - 1) * rs.PageSize + iPage %>

<%=rs("user")%> 于 <%=rs("addtime")%> 发表留言： <% If DateDiff("s", rs("addtime"), Now) <60*60*24 then %> <%end if %>

<% if rs("toadmin")=1 then%> <%response.write("（此留言正在通过审核，当前不可见……)")%> <%else%> <% if rs("show")=1 then%> <%=left(rs("content"),150)%> <%if rs("reply")<>0 then%> 老师回复：<%=rs("replytime")%> <%=rs("reply")%> <%end if%> <%else%> <%response.write("（此留言正在通过审核，当前不可见……）")%> <%end if%> <%end if %>

<%rs.MoveNext If rs.EOF Then Exit For Next end if%>

总<%=Allrecord%>条   <% 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 %> - <% for iPage =1 To rs.pagecount i=i+1 %> <%=i%> <% next%>   <%=Page%>/<%=rs.pagecount%> 页

返回专业 　签写留言