<% ' %> <% set rs=server.createobject("adodb.recordset") sql="select * from guestbook order by id desc" rs.open sql,db,3,2 dim pagenum dim e_page e_page=6 '每页显示留言数 rs.pagesize=e_page if request.querystring("pagenum")="" or request.querystring("pagenum")=0 then pagenum=1 else pagenum=request.querystring("pagenum") rs.absolutepage=trim(request.querystring("pagenum")) end if %>
 
..:: 留 言 操 作 ::..

 
<%if session("admin")<>"smallstick" then%>

<%else%>




<%end if%>
 
..:: 留 言 说 明 ::..
 
1.本留言板为访客发表对本站的意见想法,并非灌水区!
 
2.由于留言过多,站长只对部分留言进行回复!
 
3.本留言板中留言内容为留言者个人意思,不代表本站立场,未经同意不得转贴贴!

 

 
<% if rs.eof and rs.bof then %>
留言公告:
<% set rsn=server.createobject("adodb.recordset") sql="select * from notice" rsn.open sql,db,1,1 if rsn("notice")<>"" then %> <%=rsn("notice")%> <%else%> 还没有任何公告! <% end if rsn.close set rsn=nothing %>

还没有任何留言!

<%else%>
留言公告:
<% set rsn=server.createobject("adodb.recordset") '声明一个记录集 sql="select * from notice" rsn.open sql,db,1,1 if rsn("notice")<>"" then %> <%=rsn("notice")%> <%else%> 还没有任何公告! <% end if rsn.close set rsn=nothing %>
 
<% do while not rs.eof and e_page>0 %>
第<%=rs("id")%>位    TIME:<%=rs("time")%>             来自<%=rs("where")%>>  >  " target="_blank" title=Email:<%=rs("email")%>>  >  " target="_blank" title=主页:<%=rs("homepage")%>>



" alt="<%=rs("name")%>">

<%=rs("name")%>

<%if session("admin")="smallstick" then%> [">回复]
[" onClick="return confirm('您确定进行删除操作吗?')">删除] <%end if%>

.gif" width="20" height="20" alt="<%=rs("name")%>"> <%if rs("show")=1 then%>:<%=rs("title")%>

<%=ubbcode(rs("content"))%> <%else if session("admin")="smallstick" then%>:<%=rs("title")%>

悄悄话:<%=ubbcode(rs("content"))%> <%else response.write "此留言内容为悄悄话,只有管理员才可查看!" end if%> <%end if%>
--------------------------------------------------------
站长回复:<%=ubbcode(rs("reply"))%>

<% e_page=e_page-1 rs.movenext loop %>
  <%=pagenum%>页  <% for p=1 to rs.pagecount response.write ("[") response.write ""&p&"" response.write ("] ") next %> 共<%=rs.pagecount%>页
 
 
 
<% rs.close set rs=nothing end if %>