<%    
Sub ReplyArea(GuestID,RepListNum,IfShowModLink,MoreLink,ModRetUrl,ReNoView)
  On Error Resume Next
  Set rsb = Server.CreateObject("ADODB.Recordset")
  strsql = "select ID,Date,Time,RName,Content,GuestID,SecReply,RNoview,AudStatus from Reply where GuestID="&Trim(GuestID)&" order by ID asc"
  rsb.Open strsql,conn,1,3

  If Err.Number=0 Then
  ri=0
  If Not (rsb.BOF And rsb.EOF) Then
  
  While Not rsb.EOF And ri<RepListNum
	  SubUrl = "&GID="&GuestID&"&RID="&rsb("ID")&"&pn="&Request("pn")&"&RetUrl="&ModRetUrl
		
	  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 IfShowModLink=True Then%>
<div id="RepArea" class="line_around"> <b style="border-bottom:#ccc 1px solid;color:#f00;">
<%If rsb("RName")="" Then%>匿名<%Else%><%=rsb("RName")%><%End If%></b>&nbsp;
<font style="font-size:10px;"><%=rsb("Date")%>&nbsp;<%=rsb("Time")%></font>
<font style="color:red">&nbsp;<%If rsb("SecReply")=True Then%>|&nbsp;秘密回复<%End If%>&nbsp;|<%If rsb("RNoview")=True Then%>&nbsp;不显示[<a href="RepSetting.asp?op=sview&view=False<%=SubUrl%>">设置显示</a>]<%Else%>&nbsp;显示[<a href="RepSetting.asp?op=sview&view=True<%=SubUrl%>">设置不显示</a>]<%End If%></font>&nbsp;|&nbsp;<a href="RepMod.asp?1=1<%=SubUrl%>">修改</a>&nbsp;|&nbsp;<a href="RepSetting.asp?op=del<%=SubUrl%>">删除</a>&nbsp;|<%If AudStatus="" Or AudStatus="2" Then%>&nbsp;<a href="RepSetting.asp?op=aud&aud=1<%=SubUrl%>">通过</a><%End If%><%If AudStatus="" Or AudStatus="1" Then%>&nbsp;<a href="RepSetting.asp?op=aud&aud=2<%=SubUrl%>">不通过</a><%End If%><br />
<%=ubbcode(recont)%>
</div>
<%
Else
	If (ReNoView=False) And (rsb("SecReply")=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
%>
<div id="RepArea" class="line_around"> <b style="border-bottom:#ccc 1px solid;color:#f00;">
<%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>
<%
	End If
End If
%>
<%
	rsb.MoveNext
	ri=ri+1
	Wend
	If rsb.RecordCount>RepListNum Then  
%>
<div id="RepArea" class="line_around">
更多回复请点击[ <a href="<%=MoreLink%>?GID=<%=Trim(GuestID)%>&ipn=<%=Request("pn")%>">这里</a> ]查看 
</div>
<%
  End If
  End If
  Else
	Response.Write(Err.Description)
  End If
  rsb.Close
  Set rsb = Nothing
End Sub
%>