网友评论
<%face="face/"%> <% set rs=server.CreateObject("adodb.recordset") sql="select * from message where toadmin=161205 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 %> new <%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 %>   <%=Page%>/<%=rs.pagecount%> 页
<% rs.close set rs=nothing %> <% if system("indexadd")=1 then %>
签写留言
<% if system("face")=1 then %>

头像
<%end if%>
#pl" />

*

*

*

*

*验证码

<% end if%>
返回专业  签写留言