<%
Sub PageNav(TotRsCount, PerPageRsCount, CurrPageNum, NavUrlStr)
%>
<div style="background-image:url(<%=GBSkin%>/navig_bg.gif);">
<div style="float:left;height:50px;width:97%;background:url(<%=GBSkin%>/navig_l.gif) repeat-y;" class="guest_name">
  <%Call DiPage( TotRsCount, PerPageRsCount, CurrPageNum, NavUrlStr, "条留言")%>
</div>
<div style="float:right;height:50px;width:3%;background:url(<%=GBSkin%>/navig_r.gif);"></div>
<div style="height:0;background-color:#fff;" class="bline"></div>
</div>
<%
End Sub
%>
<%
Sub CopyRight()
%>
<div class="bline"></div>
<div style="margin-top:10px;padding-top:15px;background-image:url(<%=GBSkin%>/line.gif);" class="guest_name">
<div style="height:30px;"><%=GBCopy%></div>
<div style="height:30px;">网吧留言本 - 版本:BDXWL-V1.3 <%=GBVer%></div>
</div>
<%
End Sub
%>
<%
Sub GuestContent(GuestType,IfNeedAuditing,IfHadDealAuditing,IfHadPassAuditing,Content,SecGuest)
%>
<p style="margin:0;border:0;padding:8px;word-break:break-all;word-wrap:break-word;" class="lytext">
<%If GuestType=1 Or GuestType=2 Then%>
  <% =ubbcode(Content)%>
<%Else%>
  <% If SecGuest=true Then %>
    <span style="color:#FF0000 ">与站长的悄悄话</span>
  <% Else %>
    <% If IfNeedAuditing=True And IfHadDealAuditing=False Then %>
      <span style="color:#FF0000 ">留言正在审核中！</span>
    <% ElseIf IfNeedAuditing=True And IfHadDealAuditing=True And IfHadPassAuditing=False Then %>
      <span style="color:#FF0000 ">对不起，您的留言没有通过审核！</span>
    <% Else %>
      <% =ubbcode(Content)%>
    <% End If %>
  <% End If %>
<%End If%>
</p>
<%
End Sub
%>
<%
Function GRepEnabled(RepUnabled,IfNeedAuditing,IfHadDealAuditing,IfHadPassAuditing,SecGuest)
%>
<%
Dim StatusMsg, TheGRepEnabled
TheGRepEnabled = False
If RepUnabled=True Then
  StatusMsg = "此留言不允许回复！"
ElseIf SecGuest=True Then
	StatusMsg = "此留言为秘密留言！"
Else
	If IfNeedAuditing=True And IfHadDealAuditing=False Then
		StatusMsg = "此留言正在审核中！"
	ElseIf IfNeedAuditing=True And IfHadDealAuditing=True And IfHadPassAuditing=False Then
		StatusMsg = "此留言未通过审核！"
	Else
	  StatusMsg = "正常留言"
		TheGRepEnabled = True
	End If
End If
GRepEnabled = TheGRepEnabled
%>
<%
End Function
%>