<!-- #include file="common.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
%>
<%
  set rs=Server.CreateObject("ADODB.Recordset")
  
  sqlstr="select ID,name,sex,address,email,homepage,Oicq,Title,Content,ReNoView from guest where ID="&Trim(Request("GID"))
  On Error Resume Next
  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 Err.Number=0 Then
  If Not (rs.EOF And rs.BOF) 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="RepGuestSave.asp?ID=<%=Trim(Request("GID"))%>&RID=<%=Trim(Request("RID"))%>&pn=<%=Trim(Request("pn"))%>&RetUrl=<%=Request("RetUrl")%>" method="POST">
<%
  Set rsb=Server.CreateObject("ADODB.Recordset")
  sqlstr="select * from Reply where ID="&Request("RID")
  rsb.Open sqlstr,conn,1,3
  If Not rsb.EOF Then
%>
  <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="RNoview" name="RNoview" type="checkbox" value="1" <%if rsb("RNoview")=True then%>checked<%end if%>></b></li>
  </div>
  <div style="line-height:1.5;">
  <li>昵称：<input name="nname" type="text" size="15" maxlength="15" value="<%=rsb("RName")%>" class="input_common" style="width:180px;height:18px;"></li>
  <li>邮箱：<input name="nmail" type="text" size="15" maxlength="15" value="<%=rsb("REmail")%>" class="input_common" style="width:180px;height:18px;"></li>
  <li>主页：<input name="npage" type="text" size="15" maxlength="15" value="<%=rsb("RHomepage")%>" class="input_common" style="width:180px;height:18px;"></li>
  <li>OICQ：<input name="noicq" type="text" size="15" maxlength="10" value="<%=rsb("ROicq")%>" class="input_common" style="width:180px;height:18px;"></li>
  <li>来自：<input name="naddr" type="text" size="15" maxlength="25" value="<%=rsb("RAddress")%>" class="input_common" style="width:180px;height:18px;"></li>
  </div>
  <div>
    <li><%Call Editor( "recontent", HEncode(rsb("content")) )%></li>
  </div>
<%
  End If
  
  End If
  Else
  	Response.Write(err.description)
  End If
  rs.Close
  Set rs=Nothing
  
  rsb.Close
  Set rsb=Nothing
  
  conn.Close
  Set conn=Nothing
%>
  <div style="padding:5px 0 0 0;background-image:url(<%=GBSkin%>/guest_top.gif);">
  <li style="height:25px;text-align:center;">
    <input type="hidden" id="SaveType" name="SaveType" value="MOD" /> 
	<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>