湖北诚信联合律师事务所在线咨询

■全部留言] ■管理中心] ■返回主页]

||||||||||签写留言||||||||||
昵称：
 *请不要超过8个字符
留言：
 
   
 
　　　

<% sql="select * from book order by id desc" set rs=server.createobject("adodb.recordset") On error resume next rs.open sql,conn,1 rs.PageSize=5 pagecount=rs.PageCount page=int(request.QueryString ("page")) if page<=0 then page=1 if request.QueryString("page")="" then page=1 end if i=1 rs.AbsolutePage=page if rs.eof then response.write"
对不起，暂时没有留言！
" else do while not rs.eof %>
昵称： <%=UBBCode(dvHTMLEncode(left(rs("name"),6)))%>

<%=rs("time")%>
留言：

<%=UBBCode(dvHTMLEncode(left(rs("body"),200)))%>
　
<% i=i+1 if i>rs.PageSize then exit do rs.movenext loop rs.close set rs=nothing conn.close set conn=nothing %>
<%if page=1 and not page=pagecount then%> 第<%=page%>页 | 共<%=pagecount%>页 | 下一页 | 末一页 <%elseif page=pagecount and not page=1 then%> 第<%=page%>页 | 共<%=pagecount%>页 | 上一页 | 第一页 <%elseif page<1 then%> 没有任何记录 <%elseif page>pagecount then%> 没有任何记录！ <%elseif page=1 and page=pagecount then%> <%else%> 第<%=page%>页 | 共<%=pagecount%>页 | 第一页 | 上一页 | 下一页 | 末一页 <%end if%><% end if %>

[程序设计：冷剑无 管理员提示：咨询者提交咨询留言后，在线律师会及时作出答复，如三日内未作出答复的，

请咨询者与管理员陈律师联系，并注明法律咨询。管理员会以QQ或电子邮件形式予以答复。

联系方式：E-mail:anonchen@sina.com; QQ:324430302,