<!--
############################  智思留言本 版权声明  ##############################
#####  智思留言本系统（版本：ZSBS v3.0 构建于 2005/11/01）                  #####
#####  智思网络（zhisi.net) （2004-2024）版权所有！                         #####
#####  此留言本为自由源码版，你可以自由传播和使用而不用交纳任何款项，       #####
#####  你也可以进行更改，但必须本保留版权信息！                             #####
#####  如需删除版权信息，则必须经授权，并交纳版权费，否则将会诉诸于法律！   #####
#####  电子邮箱：zhisi@126.com  QQ：122178250  POPO：simonda                #####
#################################################################################
#####  此版权信息不会妨碍你正常使用本留言本，我们承诺完全免费，但保留版权！ #####
################ 请访问http://www.zhisi.net 查看新版本信息 ######################
-->
<!-- #include file="common.asp"-->
<!-- #include file="isadm.asp" -->
<!-- #include file="zsbs_editor.asp" -->
<%
	Dim zsb_auth, hasAuth
	hasAuth = False
	zsb_auth = Split( Trim( session("zsb_auth") ), ",", -1, 1 )
	For Each auth In zsb_auth
		If ( auth = "repguest" ) Then
				hasAuth = True
			Exit For
		End If
	Next
	
	If hasAuth = false Then
		Response.Write("<script language=javascript>alert('对不起，你没有权限，请联系超级管理员！');history.back(-1);</script>")
	End If
%>
<%
  if Trim(session("mangflag"))="" or Trim(session("timeflag"))="" then
    Response.redirect("noadmto.asp")
  end if
%>
<%
  set rs=Server.CreateObject("ADODB.Recordset")
  
  sqlstr="select * from guest where ID=" & Request("ID")
  rs.open sqlstr,conn,1,3
%>
<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" type="text/javascript"></script>
</head>

<body>
<div style="margin:auto;padding:20px;width:90%;text-align:left;background-image:url(<%=GBSkin%>/guest_bg.gif);">
  <div style="padding:8px 0 0 30px;background-image:url(<%=GBSkin%>/guest_top.gif);" class="text_header">
    <li style="height:22px;font-weight:bold;">回复留言</li>
  </div>
  <div style="line-height:1.5;">
  <%If Not rs.EOF Then%>
  <li>昵称：<b><% =rs("name") %></b> ( <% =rs("sex") %> 来自：<% =rs("address") %> )</li>
  <li>邮箱：<% =rs("email") %></li>
  <li>主页：<% =rs("homepage") %></li>
  <li>OICQ：<% =rs("Oicq") %></li>
  <li>主题：<b><% =rs("Title") %></b></li>
  <li>内容：</li>
  <li><p style="background-color:#FFF;border:#eee 1px solid;padding:10px;"><%=ubbcode(rs("Content"))%></p></li>
  </div>
  <form style="margin:0;padding:0;border:0;" action="replysave.asp?ID=<% =Trim(Request("ID")) %>&pn=<% =Trim(Request("pn")) %>" method="POST">
  <div style="text-align:left;padding:5px 0 0 30px;background-image:url(<%=GBSkin%>/guest_top.gif);" class="text_header">
    <li style="height:25px;font-weight:bold;">回复内容<b style="color:#F00;font-size:12px;">&nbsp;&nbsp;不显示回复<input id="SecReply" name="SecReply" type="checkbox" value="1" /></b></li>
  </div>
<%
  End If
  rs.Close
  Set rs=Nothing
%>
  <div>
  <li>
<%Call Editor( "recontent", "" )%>
<%
  conn.Close
  Set conn=Nothing
%>
  </li>  
  </div>
  <div style="padding:5px 0 0 0;background-image:url(<%=GBSkin%>/guest_top.gif);">
  <li style="height:25px;text-align:center;">
	<input type="button" value="返&nbsp;&nbsp;回" onClick="history.back(-1);" class="button_common" style="width: 60px; height:18px;">&nbsp;&nbsp;
	<input type="submit" class="button_common" style="width:80px; height:18px;" value="保存回复"></tr>	  
  </li>
  </div>
  </form>
</div>
</body>
</html>