<!--
############################  智思留言本 版权声明  ##############################
#####  智思留言本系统（版本：ZSBS v3.1 构建于 2006/10/06）                  #####
#####  智思网络（zhisi.net) （2004-2024）版权所有！                         #####
#####  此留言本为自由源码版，你可以自由传播和使用而不用交纳任何款项，       #####
#####  你也可以进行更改，但必须本保留版权信息！                             #####
#####  如需删除版权信息，则必须经授权，并交纳版权费，否则将会诉诸于法律！   #####
#####  电子邮箱：zhisi@126.com  QQ：122178250  POPO：simonda                #####
#################################################################################
#####  此版权信息不会妨碍你正常使用本留言本，我们承诺完全免费，但保留版权！ #####
################ 请访问http://www.zhisi.net 查看新版本信息 ######################
-->
<!-- #include file="common.asp"-->
<!-- #include file="admcomm.asp"-->
<!-- #include file="isadm.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>管理后台</title>
<link href="<%=GBCss%>/common.css" rel="stylesheet" type="text/css">
<link href="commcss.css" rel="stylesheet" type="text/css">
<script src="common.js" language="javascript" type="text/javascript"></script>
</head>
<body style="background-color:#eee;">
<%Call AdmPageTop()%>
<div class="bline"></div>
<%Call ZhisiNews()%>
<%
  Dim SearchKeyword
  SearchKeyword = Replace(Request("keyword"),"'","")
%>
<div id="SearchBar" style="width:100%;padding-top:5px;background-color:#FFF;">
  <form method="post" action="manage.asp" style="margin:0;padding:0;border:0;">
    <li style="height:20px;"> 搜索留言：
      <input id="keyword" name="keyword" value="<%=SearchKeyword%>" class="input_common" style="width:200px;" />
      <input type="submit" value="搜索" class="button_common" />
    </li>
  </form>
</div>
<%
  Set rs = Server.CreateObject("ADODB.Recordset")
  If SearchKeyword <> "" Then
  	sqlstr = "select * from guest where title like '%"&SearchKeyword&"%' or content like '%"&SearchKeyword&"%' or Name like '%"&SearchKeyword&"%' order by TopG,id DESC"
  Else
  	sqlstr = "select * from guest order by TopG,id DESC"
  End If
  
  rs.Open sqlstr,conn,1,3
  
  TotRsCount	 = rs.RecordCount	'总记录数
  PerPageRsCount = GBENum			'每页记录数 
  CurrPageNum = Trim( Request("pn") )
  If CurrPageNum = "" Then
		CurrPageNum = 1
		rs.MoveFirst
  Else
		rs.Move Clng(CurrPageNum-1)*PerPageRsCount
  End If
%>
<div id="SearchBar" style="width:100%;padding-top:5px;background-color:#eee;" class="guest_name">
  <%Call DiPage( TotRsCount, PerPageRsCount, CurrPageNum, "manage.asp?keyWord=" & Request("keyWord") & "&", "条留言")%>
</div>
<% 
 i=0
 While i<PerPageRsCount And Not rs.EOF 
%>
<div style="margin:auto auto 10px auto;text-align:left;background-color:#fff;">
  <li style="padding:5px 0 5px 50px;background-image:url(<%=GBSkin%>/guest_top.gif);"><font color=red><b>
    <%If rs("TopG")=True Then%>
    置顶留言
    <%Else%>
    普通留言
    <%End If%>
    </b></font>&nbsp;&nbsp;&nbsp;&nbsp;QQ：
    <% =rs("Oicq") %>
    &nbsp;&nbsp; 邮箱：
    <% =rs("email") %>
    &nbsp;&nbsp;主页：<a href="<% =rs("homepage") %>" target="_blank">
    <% =rs("homepage") %>
    </a> &nbsp;&nbsp;IP:
    <% =rs("IP") %>
	<b style="font-weight:bold;">
    <a href="setdenyip.asp?IPAddr=<% =rs("IP") %>&op=SetDenyIp&pn=<%=CurrPageNum%>">禁止此IP留言</a>
	</b>
  </li>
  <li style="font:0px/0px sans-serif;clear:both;display:block;"> </li>
  <li style="padding:5px;font-size:11px;background-image:url(<%=GBSkin%>/guest_bg.gif);">
     &nbsp;&nbsp;[
        <% =rs("Date") %>
        &nbsp;
        <% =rs("Time") %>
        ] &nbsp;<strong style="font-size:12px;">
    <% =rs("name") %>
    </strong>&nbsp;&nbsp;[&nbsp;<% =rs("sex") %>&nbsp;来自&nbsp;<% =rs("address") %>&nbsp;]
  </li>
  <li>
  <li style="font:0px/0px sans-serif;clear:both;display:block;"> </li>
  <li>
    <div style="float:left;width:20%;text-align:center;">
      <div style="margin:auto;width:110px;font:0;height:30px;background:url(<%=GBSkin%>/gb_pic_r.gif) top right no-repeat;"></div>
      <div style="margin:auto;width:110px;background:url(<%=GBSkin%>/gb_pic_r.gif) right bottom no-repeat;text-align:center;"> <img src="images/<%=rs("headpic")%>.gif" class="mytext"></div>
      <div style="margin:auto;width:110px;font:0;height:10px;background:url(<%=GBSkin%>/gb_pic_b.gif) right no-repeat;"></div>
    </div>
    <div style="float:right;width:80%;table-layout:fixed;">
      <p style="margin:0;border:0;padding:8px 0 5px 5px;font-weight:bold;" class="guest_name"><% =rs("Title") %>&nbsp;<%If rs("sec")=True Then%>[<font style="color:#F00;">悄悄话</font>]<%End If%></p>
      <p style="margin:0;border:0;padding:0;width:90%;height:2px;font-size:0;background-image:url(<%=GBSkin%>/line.gif);"></p>
      <%Call GuestContent(2,0,0,0,rs("content"),0)%>
      <p>
        <%Call ReplyArea(rs("ID"),RepListNum,True,"GuestDetailAdm.asp","manage.asp",rs("ReNoView"))%>
      </p>
    </div>
  </li>
  <li style="font:0px/0px sans-serif;clear:both;display:block;"> </li>
  <li style="padding:5px 0 5px 150px;background-image:url(<% =GBSkin %>/guest_bg.gif);" class="guest_name">
    <%If ifNeedAuditing=True Then%>
    <%If rs("ifHadDealAuditing")=False Then%>
    <font color=red><b>未处理审核</b></font>[&nbsp;<a href="setauditing.asp?ID=<% =rs("ID") %>&op=pass&pn=<% =CurrPageNum %>">通过</a>|<a href="setauditing.asp?ID=<% =rs("ID") %>&op=unpass&pn=<% =CurrPageNum %>">不通过</a>&nbsp;]
    <%Else%>
    <%If rs("ifHadPassAuditing")=False Then%>
    <font color=red><b>审核未通过</b></font>&nbsp;[&nbsp;<a href="setauditing.asp?ID=<% =rs("ID") %>&op=pass&pn=<% =CurrPageNum %>">通过</a>&nbsp;]
    <%Else%>
    <font color=red><b>审核已通过</b></font>&nbsp;[&nbsp;<a href="setauditing.asp?ID=<% =rs("ID") %>&op=unpass&pn=<% =CurrPageNum %>">不通过</a>&nbsp;]
    <%End If%>
    <%End If%>
    <%End If%>
    &nbsp;&nbsp;<a href="modify.asp?ID=<% =rs("ID") %>&pn=<% =CurrPageNum %>">修改留言</a>
	&nbsp;&nbsp;<a href="delete.asp?ID=<% =rs("ID") %>&pn=<% =CurrPageNum %>">删除留言</a>
	&nbsp;&nbsp;<a href="reply.asp?ID=<% =rs("ID") %>&pn=<% =CurrPageNum %>">回复</a>
	[<%If rs("ReNoView")=False Then%><a href="RepSetting.asp?op=view&view=True<%="&GID="&rs("ID")&"&pn="&Request("pn")&"&RetUrl=manage.asp"%>">设置为不显示</a><%Else%><a href="RepSetting.asp?op=view&view=False<%="&GID="&rs("ID")&"&pn="&Request("pn")&"&RetUrl=manage.asp"%>">设置为显示</a><%End If%>]
    &nbsp;&nbsp;<%If rs("TopG")=False Then%>
    <a href="settop.asp?ID=<% =rs("ID") %>&op=top&pn=<% =CurrPageNum %>">设为置顶</a>
    <%Else%>
    <a href="settop.asp?ID=<% =rs("ID") %>&op=untop&pn=<% =CurrPageNum %>">取消置顶</a>
    <%End If%>
		&nbsp;&nbsp;<%If rs("RepUnabled")=True Then%>
    不允许回复[<a href="RepSetting.asp?op=rep&rep=False<%="&GID="&rs("ID")&"&pn="&Request("pn")&"&RetUrl=manage.asp"%>">设为允许</a>]
    <%Else%>允许回复
    [<a href="RepSetting.asp?op=rep&rep=True<%="&GID="&rs("ID")&"&pn="&Request("pn")&"&RetUrl=manage.asp"%>">设为不允许</a>]
    <%End If%>
  </li>
  <li style="font:0px/0px sans-serif;clear:both;display:block;"> </li>
</div>
<% rs.movenext %>
<% i=i+1 %>
<% wend %>
<div id="SearchBar" style="width:100%;padding-top:5px;background-color:#eee;" class="guest_name">
  <%Call DiPage( TotRsCount, PerPageRsCount, CurrPageNum, "manage.asp?keyWord=" & Request("keyWord") & "&", "条留言")%>
</div>
<%
  rs.close
  set rs=nothing
  conn.close
  set conn=nothing
%>
<%Call CopyRight()%>
</body>
</html>