<!--
############################  智思留言本 版权声明  ##############################
#####  智思留言本系统（版本：ZSBS v3.1 构建于 2006/09/25）                  #####
#####  智思网络（zhisi.net) （2004-2024）版权所有！                         #####
#####  此留言本为自由源码版，你可以自由传播和使用而不用交纳任何款项，       #####
#####  你也可以进行更改，但必须本保留版权信息！                             #####
#####  如需删除版权信息，则必须经授权，并交纳版权费，否则将会诉诸于法律！   #####
#####  电子邮箱：zhisi@126.com  QQ：122178250  POPO：simonda                #####
#################################################################################
#####  此版权信息不会妨碍你正常使用本留言本，我们承诺完全免费，但保留版权！ #####
################ 请访问http://www.zhisi.net 查看新版本信息 ######################
-->
<!-- #include file="common.asp"-->
<html>
<head>
  <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  <meta name="description" content="网吧留言本">
  <meta name="keywords" content="网吧留言本" >
  <title><%=GBName%></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>
<div style="margin:auto;width:730px;background-color:#FFF;">
  <div style="height:100px;background-image:url(<%=GBSkin%>/top.gif);"></div>
  <div style="padding:10px 20px 0 20px;">
    <div style="float:left;height:30px;" class="lytext">
	  <span class="link_around"><a href="index.asp?pn=<%=Request("ipn")%>">返回</a></span>
      <%If Link_one<>"" Then%>
      |&nbsp;<span class="link_around"><%=Link_one%></span>
      <%End If%>
      <%If Link_two<>"" Then%>
      |&nbsp;<span class="link_around"><%=Link_two%></span>
      <%End If%>
      <%If Link_three<>"" Then%>
      |&nbsp;<span class="link_around"><%=Link_three%></span>
      <%End If%>
    </div>
    <div id="gb_navigbar" style="float:right;"> <a href="guest.asp"><img style="width:inherit;" src="<%=GBSkin%>/lybut.gif" alt="我要留言" width="152" height="24" border="0"></a><a href="manginto.asp"><img src="<% =GBSkin %>/mangbut.gif" alt="留言管理" width="141" height="24" border="0"></a>
      <input id="btnShowSearchBar" type="button" value="搜" class="sbtn" onClick="ShowOrHideSearchBar(true);" />
      <input id="btnHideSearchBar" type="button" style="display:none;" value="不搜" class="nsbtn" onClick="ShowOrHideSearchBar(false);" />
    </div>
  </div>
  <div class="bline"></div>
<%
  Dim SearchKeyword
  SearchKeyword = Request("keyword")
%>
  <form style="margin:0;border:0;padding:0;" method="post" action="GuestDetail.asp?GID=<%=Request("GID")%>&ipn=<%=Request("pn")%>">
  <div id="SearchBar" style="margin:10px 20px 0 0;text-align:right;<%If SearchKeyword<>"" Then%><%Else%>display:none;<%End If%>" class="guest_name">
    <div style="height:30px;">
      关键字：
      <input id="keyword" name="keyword" value="<%=SearchKeyword%>" class="input_common" style="width:200px;" />
      <input type="submit" value="搜索" class="nsbtn" />
    </div>
  </div>
  </form>
  <div class="bline"></div>
<%
  Set rs=Server.CreateObject("ADODB.Recordset")
  sqlstr="select top 1 * from guest where id="&Trim(Request("GID"))
  rs.open sqlstr,conn,1,3
%>
<%Call GuestArea(2,0,"GuestDetail.asp",RepEnabled,True)%>
<%
  RepHidden=rs("ReNoView")
  rs.Close
  Set rs=Nothing
%>
<%
  On Error Resume Next
  Dim rname,rsex,raddr,rmail,rpage,roicq,rhead,rtitl,rcont,rtime,rip,rrepflag,recont
  Set rsb=Server.CreateObject("ADODB.Recordset")
  If SearchKeyword <> "" Then
  	sqlstr="select * from reply where GuestID="&Trim(Request("GID"))&" and Content like '%"&SearchKeyword&"%' or RName like '%"&SearchKeyword&"%' order by ID ASC"
  Else
  	sqlstr="select * from reply where GuestID="&Trim(Request("GID"))&" order by ID ASC"
  End If
  rsb.Open sqlstr,conn,1,3
  If Err.Number=0 Then
%>
<div id="GuestArea" style="margin:auto;width:99%;text-align:center;background-image:url(<%=GBSkin%>/guest_bg.gif);background-color:#fff;">
  <div id="GContentT" style="margin:auto;height:10px;width:90%;text-align:left"></div>
  <div id="GContent<%=i%>" style="margin:auto;width:90%;text-align:left">
<%
  TotRsCount	 = rsb.RecordCount	'总记录数
  PerPageRsCount = GBENum			'每页记录数 
  CurrPageNum 	 = Trim( Request("pn") )
  If CurrPageNum = "" Then
	CurrPageNum = 1
	rsb.MoveFirst
  Else
	rsb.Move Clng(CurrPageNum - 1) * PerPageRsCount
  End If 
  
  i = 0
  While i<PerPageRsCount And Not rsb.EOF
	  recont = rsb("content")
	  If VarType(rsb("AudStatus"))=0 Or VarType(rsb("AudStatus"))=1 Then
			AudStatus = ""
		Else
		  If Trim(rsb("AudStatus"))<>"" Then
				AudStatus = Trim(rsb("AudStatus"))
			Else
				AudStatus = ""
			End If
		End If
		
    If (rsb("SecReply")=False) And (RepHidden=False) And (rsb("Rnoview")=False) Then
			If IfRepNeedAud=True And AudStatus="" Then
				recont = "请等待管理员审核！"
			ElseIf IfRepNeedAud=True And AudStatus="2" Then
				recont = "抱歉！您的回复 未通过 审核！"
			ElseIf IfRepNeedAud=True And AudStatus="1" Or IfRepNeedAud=False Then
			End If 
%>
<p>
<div id="RepArea" style="margin:0;" class="line_around"> <b><%If rsb("RName")="" Then%>匿名<%Else%><%=rsb("RName")%><%End If%></b>&nbsp;<font style="font-size:10px;"><%=rsb("Date")%>&nbsp;<%=rsb("Time")%></font><br />
<%=ubbcode(recont)%> </div>
</p>
<%
    End If
  rsb.Movenext 
  i=i+1
  Wend 
%>
  </div>
  <div id="GContentB" style="margin:auto;height:10px;width:90%;text-align:left"> </div>
  </div>
<%Call PageNav(TotRsCount, PerPageRsCount, CurrPageNum, "GuestDetail.asp?keyWord="&Request("keyWord")&"&GID="&Request("GID")&"&ipn="&Request("ipn")&"&")%>
<%Call CopyRight()%>
</div>
<%
  End If
  rsb.Close
  Set rsb=Nothing
  conn.Close
  Set conn=Nothing
%>
</body>
</html>