admin_forumboard.asp

依蓝旅游网站管理系统Elan2008.SP2

	  <input name="BoardID" type="hidden" id="BoardID" value="<%=BoardID%>">
      <input name="ChannelID" type="hidden" id="ChannelID" value="<%=EL_Channel.ChannelID%>"></td>
  </tr>
</table>
</form>
<%
rsBoard.Close()
Set rsBoard = Nothing
Set BoardCmd = Nothing
EL_Common.ShowScriptError()
End Sub

Sub Main()
On Error Resume Next
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td width="8%" align="center" class="top_item"><strong>ID</strong></td>
    <td width="36%" align="center" class="top_item"><strong>版面名称</strong></td>
    <td width="21%" align="center" class="top_item"><strong>版主</strong></td>
    <td width="35%" align="center" class="top_item"><strong>操作</strong></td>
  </tr>
  <%=ShowBoardTree(EL_Channel.ChannelID, 0, "")%>
</table>
<%
EL_Common.ShowScriptError()
End Sub


Sub AddBoard()
On Error Resume Next
Dim ParentID
ParentID = EL_Common.ELRequest("ParentID", 2)
%>
<script language="javascript">
function SearchUser(){
   var arr=showModalDialog('Admin_UserList.asp?s='+ getObject('ArrManager').value.trim(), '', 'dialogWidth:700px; dialogHeight:500px; help: no; scroll: yes; status: no');
   if(arr!=null){
	 if(getObject('ArrManager').value.trim()=="") 
	    getObject('ArrManager').value = arr;
	 else
	    getObject('ArrManager').value = getObject('ArrManager').value.trim()+"|"+arr;
   }
}
function Check(frm){
   if(frm.BoardName.value.trim()==""){
      alert("请输入<%=EL_Channel.ClassItemName%>名称");
	  frm.BoardName.focus();
	  return false;
   }
   SubmitOnce(frm);
   return;
}
</script>
<form name="myform" action="Admin_ForumBoard.asp" method="post" onSubmit="return Check(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td colspan="2" class="top_25"><strong>添加<%=EL_Channel.ClassItemName%></strong></td>
  </tr>
  <tr>
    <td width="21%" class="td_ItemName"><strong>所属父<%=EL_Channel.ClassItemName%></strong></td>
    <td width="79%" class="td_25">
	<select name="ParentID" id="ParentID">
	<option value="0">作为一级<%=EL_Channel.ClassItemName%></option>
	<%=EL_Common.Data2Options("EL_ForumBoard", "BoardID", "BoardName", ParentID, "ChannelID="& EL_Channel.ChannelID &" And ParentID=0 Order By OrderID")%>
    </select>    </td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong><%=EL_Channel.ClassItemName%>名称</strong></td>
    <td class="td_25"><input name="BoardName" type="text" id="BoardName" size="40"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong><%=EL_Channel.ClassItemName%>图片地址</strong></td>
    <td class="td_25"><input name="PictrueURL" type="text" id="PictrueURL" size="40"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong><%=EL_Channel.ClassItemName%>说明</strong><br>支持HTML描述</td>
    <td class="td_25"><textarea name="Intro" cols="60" rows="3" id="Intro"></textarea></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>做为父<%=EL_Channel.ClassItemName%>是否可以发帖</strong></td>
    <td class="td_25"><input name="ParentPost" type="radio" class="nomargin" value="<%=EL_True%>">
      是
        <input name="ParentPost" type="radio" class="nomargin" value="<%=EL_False%>" checked>
      否</td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>发帖是否采用验证码</strong></td>
    <td class="td_25"><input name="EnableCheckCode" type="radio" class="nomargin" value="<%=EL_True%>" checked>
是
  <input name="EnableCheckCode" type="radio" class="nomargin" value="<%=EL_False%>">
否</td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>是否禁用</strong></td>
    <td class="td_25"><input name="Disabled" type="radio" class="nomargin" value="<%=EL_True%>">
是
  <input name="Disabled" type="radio" class="nomargin" value="<%=EL_False%>" checked>
否</td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong><%=EL_Channel.ClassItemName%>默认风格</strong></td>
    <td class="td_25"><select name="SkinID" id="SkinID">
      <option value="0">使用系统默认</option>
      <%=EL_Common.SkinList(-1)%>
    </select></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong><%=EL_Channel.ClassItemName%>默认模板</strong></td>
    <td class="td_25"><select name="TemplateID" id="TemplateID">
      <option value="0">使用系统默认</option>
      <%=EL_Common.TemplateList(EL_Channel.ChannelID, 23, -1)%>
    </select></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong><%=EL_Channel.ItemName%>内容页默认风格</strong></td>
    <td class="td_25"><select name="TopicSkinID" id="TopicSkinID">
        <option value="0">使用系统默认</option>
        <%=EL_Common.SkinList(-1)%>
    </select></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong><%=EL_Channel.ItemName%>内容页默认模板</strong></td>
    <td class="td_25"><select name="TopicTemplateID" id="TopicTemplateID">
        <option value="0">使用系统默认</option>
        <%=EL_Common.TemplateList(EL_Channel.ChannelID, 24, -1)%>
    </select></td>
  </tr>
  
  <tr>
    <td class="td_ItemName"><strong>版主设置</strong><br>填写用户名，多个版主用“|”分隔</td>
    <td class="td_25"><input name="ArrManager" type="text" id="ArrManager" size="60">
      <input type="button" name="Submit2" value="查找" onClick="SearchUser()"></td>
  </tr>
  <tr>
    <td class="td_ItemName">&nbsp;</td>
    <td class="td_50"><input type="submit" name="Submit" value="添加<%=EL_Channel.ClassItemName%>">
      <input type="button" name="Submit32" value="返回上页" onClick="history.back()">
      <input name="Action" type="hidden" id="Action" value="SaveNewBoard">
      <input name="ChannelID" type="hidden" id="ChannelID" value="<%=EL_Channel.ChannelID%>"></td>
  </tr>
</table>
</form>
<%
End Sub
%>
<%
Function ShowBoardTree(ByVal ChannelID, ByVal ParentID, ParentString)
	  Dim BoardCmd, rsBoard, ArrData
	  Dim RowCount, MaxOrderID, ParentMaxOrderID, ParentOrderID, MinOrderID, i
	  Dim Result, TempString, TableString, TreeFolder
	  TreeFolder = "<img src='Images/tree_folder1.gif'>"
	  ArrData = EL_Common.GetFieldValue("MAX(OrderID),MIN(OrderID)", "EL_ForumBoard", "ChannelID="& ChannelID &" AND ParentID="& ParentID)
	  MaxOrderID = ArrData(0)
	  MinOrderID = ArrData(1)
	  ParentMaxOrderID = EL_Common.GetFieldValue("MAX(OrderID)", "EL_ForumBoard", "ChannelID="& ChannelID &" AND ParentID=0")
	  ParentOrderID = EL_Common.GetFieldValue("OrderID", "EL_ForumBoard", "ChannelID="& ChannelID &" AND BoardID="& ParentID)
	  
	  Call EL_Common.InitCommonCmd(BoardCmd, rsBoard, "EL_ForumBoard", "BoardID,BoardName,OrderID,ArrManager", "ChannelID="& ChannelID &" AND ParentID="& ParentID &" Order By OrderID")
	  rsBoard.Close()
	  RowCount = BoardCmd(0)
	  If RowCount = 0 Then
	     ShowBoardTree = ""
		 Set rsBoard = Nothing
		 Set BoardCmd = Nothing
		 Exit Function
	  End If
	  rsBoard.Open()
	  Result = ""
	  For i=1 To RowCount
	     TempString = ""
		 If ParentID <> 0 Then 
		    If ParentString <> "" Then
	           If ParentMaxOrderID = ParentOrderID Then
		          TempString = Left(ParentString,Len(ParentString)-1) &"<img src='Images/tree_line4.gif'>"
		       Else
		          TempString = Left(ParentString,Len(ParentString)-1) &"│"
		       End If
	        Else
	           TempString = ParentString
	        End If
		    If rsBoard("OrderID") = MaxOrderID Then
			   TempString = TempString &"└"
			Else
			   TempString = TempString &"├"
			End If
		 End If
		 
		 TableString = TempString
		 TableString = Replace(TableString,"│","<img src='Images/tree_line3.gif'>")
		 TableString = Replace(TableString,"└","<img src='Images/tree_line2.gif'>")
		 TableString = Replace(TableString,"├","<img src='Images/tree_line1.gif'>")
		 
		 Result = Result &"<tr class='td_25' onMouseOver=this.className='MouseOver_25' onMouseOut=this.className='td_25'><td align='center'>"& rsBoard("BoardID") &"</td>"	
		 Result = Result &"<td>"& TableString & TreeFolder & EL_Common.ServerHTMLEncode(rsBoard("BoardName")) &"</td>"
		 Result = Result &"<td align=center>"& EL_Common.ServerHTMLEncode(rsBoard("ArrManager")) &"</td>"
	     Result = Result &"<td align='center' nowrap>"
		 If ParentID = 0 Then
	        Result = Result &"<a href='Admin_ForumBoard.asp?Action=Add&ChannelID="& ChannelID &"&ParentID="& rsBoard("BoardID") &"'>添加子"& EL_Channel.ClassItemName &"</a> | "
		 Else
		    Result = Result &"<span class=GrayText>添加子"& EL_Channel.ClassItemName &"</span> | "
		 End If
		 Result = Result &"<a href='Admin_ForumBoard.asp?Action=Modify&ChannelID="& ChannelID &"&BoardID="& rsBoard("BoardID") &"'>修改设置</a> | "
		 Result = Result &"<a href='Admin_ForumBoard.asp?Action=Delete&ChannelID="& ChannelID &"&BoardID="& rsBoard("BoardID") &"' onClick=""return confirm('本次操作将删除该"& EL_Channel.ClassItemName &"及其子"& EL_Channel.ClassItemName &"，包括"& EL_Channel.ClassItemName &"下面的所有信息，并不能恢复，是否要执行删除？')"">删除"& EL_Channel.ClassItemName &"</a> &nbsp;"
		 
		 If rsBoard("OrderID") = MinOrderID Then
		    Result = Result &"<img src='Images/Up_0.gif' width='12' height='13' border='0' alt='不能移动'> &nbsp;"
		 Else
		    Result = Result &"<a href='Admin_ForumBoard.asp?Action=Up&ChannelID="& ChannelID &"&BoardID="& rsBoard("BoardID") &"'><img src='Images/Up.gif' width='12' height='13' border='0' alt='上移'></a> &nbsp;"
		 End If
		 If rsBoard("OrderID") = MaxOrderID Then
		    Result = Result &"<img src='Images/Down_0.gif' width='12' height='13' border='0' alt='不能移动'>"
		 Else
		    Result = Result &"<a href='Admin_ForumBoard.asp?Action=Down&ChannelID="& ChannelID &"&BoardID="& rsBoard("BoardID") &"'><img src='Images/Down.gif' width='12' height='13' border='0' alt='下移'></a>"
		 End If
		 
		 Result = Result &"</td>"
		 Result = Result &"</tr>"
		 Result = Result & ShowBoardTree(ChannelID, rsBoard("BoardID"), TempString)
		 If i<RowCount Then rsBoard.MoveNext
	  Next
	  rsBoard.Close()
	  Set rsBoard = Nothing
	  Set BoardCmd = Nothing	 
	  ShowBoardTree = Result  
End Function

Function ShowBoardOptions(ByVal ChannelID, ByVal ParentID, ByVal DefaultBoardID, ParentString)
	  Dim BoardCmd, rsBoard, ArrData
	  Dim RowCount, MaxOrderID, ParentMaxOrderID, ParentOrderID, MinOrderID, i
	  Dim Result, TempString
	  ArrData = EL_Common.GetFieldValue("MAX(OrderID),MIN(OrderID)", "EL_ForumBoard", "ChannelID="& ChannelID &" AND ParentID="& ParentID)
	  MaxOrderID = ArrData(0)
	  MinOrderID = ArrData(1)
	  ParentMaxOrderID = EL_Common.GetFieldValue("MAX(OrderID)", "EL_ForumBoard", "ChannelID="& ChannelID &" AND ParentID=0")
	  ParentOrderID = EL_Common.GetFieldValue("OrderID", "EL_ForumBoard", "ChannelID="& ChannelID &" AND BoardID="& ParentID)
	  
	  Call EL_Common.InitCommonCmd(BoardCmd, rsBoard, "EL_ForumBoard", "BoardID,BoardName,OrderID", "ChannelID="& ChannelID &" AND ParentID="& ParentID &" Order By OrderID")
	  rsBoard.Close()
	  RowCount = BoardCmd(0)
	  If RowCount = 0 Then
	     ShowBoardOptions = ""
		 Set rsBoard = Nothing
		 Set BoardCmd = Nothing
		 Exit Function
	  End If
	  rsBoard.Open()
	  Result = ""
	  For i=1 To RowCount
	     TempString = ""
		 If ParentID <> 0 Then 
		    If ParentString <> "" Then
	           If ParentMaxOrderID = ParentOrderID Then
		          TempString = Left(ParentString,Len(ParentString)-1) &"&nbsp;"
		       Else
		          TempString = Left(ParentString,Len(ParentString)-1) &"│"
		       End If
	        Else
	           TempString = ParentString
	        End If
		    If rsBoard("OrderID") = MaxOrderID Then
			   TempString = TempString &"└"
			Else
			   TempString = TempString &"├"
			End If
		 End If
		 If rsBoard("BoardID") = EL_Common.ELClng(DefaultBoardID) Then
		    Result = Result &"<option value='"& rsBoard("BoardID") &"' selected>"& TempString & rsBoard("BoardName") &"</option>"
		 Else
		    Result = Result &"<option value='"& rsBoard("BoardID") &"'>"& TempString & rsBoard("BoardName") &"</option>"
		 End If
		 Result = Result & ShowBoardOptions(ChannelID, rsBoard("BoardID"), DefaultBoardID, TempString)
		 If i<RowCount Then rsBoard.MoveNext
	  Next
	  rsBoard.Close()
	  Set rsBoard = Nothing
	  Set BoardCmd = Nothing	 
	  ShowBoardOptions = Result  
End Function
%>
</body>
</html>