forumnewssetting.asp

公司企业网站管理系统全站源码,用于企业内部对网站的管理

			End If
			If TempStr<>"" Then
				Tempstr = Left(Tempstr,InStrRev(Tempstr, ",")-1)
				SearchBoard = " AND F_BoardID in (" & Tempstr &") "
			End If
		Case Else
			SearchBoard = " AND F_BoardID = " & Boardid
		End Select
	Else
		Tempstr = Cstr(Boardid)
	End If

	'限制不显示特列版面
	If BoardLimit="1" and Tempstr<>"" Then
		Tempstr = GetBoardid(Tempstr)
		If Boardid<>0 Then
			If BoardLock = 1 Then
				SearchBoard = " AND F_BoardID in (" & Boardid &","& Tempstr &") "
			Else
				SearchBoard = " AND F_BoardID in (" & Tempstr &") "
			End If
		Else
			If Tempstr<>"" Then
				SearchBoard = " AND F_BoardID not in (" & Tempstr &") "
			End If
		End If
	End If
	Select Case FileOrders
	Case 1
		OrderBy = " F_ViewNum DESC, "
	Case 2
		OrderBy = " F_DownNum DESC, "
	Case 3
		OrderBy = " F_FileSize DESC, "
	Case Else
		OrderBy = ""
	End Select
	Searchstr = Searchstr & SearchBoard
	NewsSql = "SELECT TOP "& News_Total &" F_ID,F_AnnounceID,F_BoardID,F_Username,F_Filename,F_Readme,F_Type,F_FileType,F_AddTime,F_Viewname,F_ViewNum,F_DownNum,F_FileSize FROM [DV_Upfile] WHERE F_Flag<>4 "
	NewsSql = NewsSql & Searchstr & " ORDER BY "& OrderBy &" F_ID DESC"
End Sub

Sub NewsType_7()
	Dim News_Total,Orders
	News_Total = Dvbbs.CheckNumeric(Request.Form("Total"))
	Orders = Request.Form("Orders")
	Dim OrderBy
	If News_Total = 0 Then News_Total = 10
	NewsSql = "SELECT TOP "& News_Total &" ID,GroupName,GroupInfo,AppUserID,AppUserName,UserNum,Stats,PostNum,TopicNum,TodayNum,YesterdayNum,LimitUser,PassDate From [Dv_GroupName] "
	Select Case Request.Form("UserOrders")
		Case "0"
			OrderBy = "PassDate desc, "
		Case "1"
			OrderBy = "UserNum desc, "
		Case "2"
			OrderBy = "TopicNum desc, "
		Case "3"
			OrderBy = "PostNum desc, "
		Case "4"
			OrderBy = "LimitUser desc, "
	End Select
	NewsSql = NewsSql & " Where Stats>0 ORDER BY "&OrderBy&"ID desc"
End Sub

Sub NewsType_8()
End Sub


'BoardidVal<>0 取出调用的版面ID，当BoardidVal=0 取出不被调用的版面ID
Function GetBoardid(BoardidVal)
	Dim TempData,Nodelist,Nodes
	If BoardidVal<>"0" Then
		BoardidVal = "," & BoardidVal & ","
	End If

	Set Nodelist = Application(Dvbbs.CacheName&"_boardlist").cloneNode(True).documentElement.getElementsByTagName("board")
	For Each Nodes in Nodelist
		If BoardidVal<>"0" Then
			If Instr(BoardidVal,","&Nodes.attributes.getNamedItem("boardid").text&",") and Nodes.attributes.getNamedItem("hidden").text="0" and Nodes.attributes.getNamedItem("checkout").text="0" Then
				TempData = TempData & Nodes.attributes.getNamedItem("boardid").text &","
			End If
		Else
			If Nodes.attributes.getNamedItem("hidden").text="1" or Nodes.attributes.getNamedItem("checkout").text="1" Then
				TempData = TempData & Nodes.attributes.getNamedItem("boardid").text &","
			End If
		End If
	Next
	If TempData<>"" Then
		GetBoardid = Left(TempData,InStrRev(TempData, ",")-1)
	End If
End Function

'获取下属版块ID
Private Function GetChildBoardID(BoardIDVal)
		Dim TempData,Nodelist,Node
		Set Nodelist = Application(Dvbbs.CacheName&"_boardlist").cloneNode(True).documentElement.getElementsByTagName("board")
		For Each Node in Nodelist
			If Instr(","&Node.attributes.getNamedItem("parentstr").text&",",","&BoardIDVal&",")>0 Then
				TempData = TempData & Node.attributes.getNamedItem("boardid").text &","
			End If
		Next
		GetChildBoardID = TempData
End Function

Sub AddSetting()
	Dim ChildNode,attributes,Action
	Call LoadXml()
	If Request("Act") = "EditNewsInfo" Then
		Set Node = XmlDoc.DocumentElement.selectSingleNode("NewsCode[@AddTime='"&Request("DelNodes")&"']")
		If (Node is nothing) Then
			ErrMsg = "<li>所选取的调用已不存在!</li>"
			Dvbbs_Error()
			Exit Sub
		End If
		Action = "SaveEditSetting"
	Else
		Set Node=XmlDoc.createNode(1,"NewsCode","")
		Set ChildNode = XmlDoc.createNode(1,"Skin_Head","")
		node.appendChild(ChildNode)
		Set ChildNode = XmlDoc.createNode(1,"Skin_Main","")
		node.appendChild(ChildNode)
		Set ChildNode = XmlDoc.createNode(1,"Skin_Footer","")
		node.appendChild(ChildNode)
		Action = "SaveSetting"
	End If
	'当不是编辑版面调用时创建临时节点
	If NewsType <> "3" or NewsType <> "6" Then
		Set ChildNode = XmlDoc.createNode(1,"Board_Input0","")
		node.appendChild(ChildNode)
		Set ChildNode = XmlDoc.createNode(1,"Board_Input1","")
		node.appendChild(ChildNode)
		Set ChildNode = XmlDoc.createNode(1,"Board_Input2","")
		node.appendChild(ChildNode)
		Set ChildNode = XmlDoc.createNode(1,"Board_Input3","")
		node.appendChild(ChildNode)
		Set ChildNode = XmlDoc.createNode(1,"Board_Input4","")
		node.appendChild(ChildNode)
	End If
	Set XmlDoc = Nothing
	Dim Boardid
	Boardid = "0"
	If Node.getAttribute("Boardid") <> "" Then
		Boardid = Node.getAttribute("Boardid")
	End If
%>
<br>
<table cellpadding="3" cellspacing="1" border="0" align="center" width="100%">
<form METHOD=POST ACTION="?Act=<%=Action%>" name="TheForm">
<tr><th colspan="2" height="23">首页调用管理</th></tr>
<tr>
<td width="30%" class="td2" align="right">
调用标识名称：
</td>
<td width="70%" class="td1">
<INPUT TYPE="text" NAME="NewsName" size="10" Maxlength="10" onkeyup="OutputNewsCode(this.value);" value="<%=Node.getAttribute("NewsName")%>">(请使用英文或数字设定调用名称,并且是唯一标识.不能超出10个字符)
</td>
</tr>
<tr>
<td width="15%" class="td2" align="right">
调用代码：
</td>
<td width="85%" class="td1">
<INPUT TYPE="text" NAME="Newscode" size="70" disabled value="<script src=&quot;Dv_News.asp?GetName=<%=Node.getAttribute("NewsName")%>&quot;></script>">
</td>
</tr>
<tr>
<td class="td2" align="right">
调用说明：
</td>
<td class="td1">
<INPUT TYPE="text" NAME="Intro" size="30" Maxlength="30" value="<%=Node.getAttribute("Intro")%>">(提示说明,以作管理区分.不能超出30个字符)
</td>
</tr>
<tr>
<td class="td2" align="right">
调用类型：
</td>
<td class="td1">
	<SELECT NAME="NewsType" ID="NewsType" onchange="NewsTypeSel(this.selectedIndex)">
	<option value="0">选取调用类型</option>
	<option value="1">帖子调用</option>
	<option value="2">信息调用</option>
	<option value="3">版块调用</option>
	<option value="4">会员调用</option>
	<option value="5">公告调用</option>
	<option value="6">展区调用</option>
	<option value="7">圈子调用</option>
	<option value="8">登录框调用</option>
	</SELECT>
</td>
</tr>
<tr>
<td class="td2" align="right">
数据更新间隔：
</td>
<td class="td1"><INPUT TYPE="text" NAME="Updatetime" value="<%=Node.getAttribute("Updatetime")%>">(单位：秒)</td>
</tr>
<tr>
<td class="td2" align="right">
时间显示格式：
</td>
<td class="td1">
<SELECT NAME="FormatTime" ID="FormatTime">
	<option value="0" SELECTED>YYYY-M-D H:M:S(长格式)</option>
	<option value="1">YYYY年M月D</option>
	<option value="2">YYYY-M-D</option>
	<option value="3">H:M:S</option>
	<option value="4">hh:mm</option>
</SELECT>
(按服务器时间区域格式显示。)
</td>
</tr>

<tr>
<td class="td2" align="right" valign="top">调用设置：</td>
<td class="td2">
<div id="News"></div>
</td>
</tr>
<!-- 调用模板设置 -->
<tr><th colspan="2" height="23">调用模板设置(请用HTML语法填写)</th></tr>
<tr>
<td class="td2" align="right" valign="top">模板_开始标记部分
</td>
<td class="td2">
	<textarea name="Skin_Head" ID="Skin_Head" style="width:100%;" rows="3"><%=Server.Htmlencode(Node.selectSingleNode("Skin_Head").text&"")%></textarea>
	<br><a href="javascript:admin_Size(-3,'Skin_Head')"><img src="skins/images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(3,'Skin_Head')"><img src="skins/images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
<tr>
<td class="td2" align="right" valign="top">
模板_主体循环标记部分
<fieldset title="模板变量">
<legend>&nbsp;模板变量说明&nbsp;</legend>
<div id="skin_info" align="left"></div>
</fieldset>
</td>
<td class="td2" valign="top">
	<div id="DisInput"></div>
	<textarea name="Skin_Main" ID="Skin_Main" style="width:100%;" rows="10"><%=Server.Htmlencode(Node.selectSingleNode("Skin_Main").text&"")%></textarea>
	<br><a href="javascript:admin_Size(-3,'Skin_Main')"><img src="skins/images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(3,'Skin_Main')"><img src="skins/images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
<tr>
<td class="td2" align="right" valign="top">模板_结束标记部分
</td>
<td class="td2">
	<textarea name="Skin_Footer" ID="Skin_Footer" style="width:100%;" rows="3"><%=Server.Htmlencode(Node.selectSingleNode("Skin_Footer").text&"")%></textarea>
	<br><a href="javascript:admin_Size(-3,'Skin_Footer')"><img src="skins/images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(3,'Skin_Footer')"><img src="skins/images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
<!-- 调用模板设置 -->
<tr>
<td class="td2" align="right">&nbsp;
</td>
<td class="td2" align="center">
<INPUT TYPE="submit" class="button" value="提交">&nbsp;&nbsp;&nbsp;<INPUT TYPE="reset" class="button" value="重填">
<INPUT TYPE="hidden" name="AddTime" value="<%=Node.getAttribute("AddTime")%>">
</td>
</tr>
</form>
</table>
<!-- 设置信息部分 -->
<div id="News_1" style="display:none">
<!-- 帖子调用 -->
<table border="0" cellpadding="3" cellspacing="1" width="100%">
<tr>
<td class="td1">
显示记录数：<INPUT TYPE="text" NAME="Total" size="3" value="<%=Node.getAttribute("Total")%>">
</td><td class="td1">
标题长度：<INPUT TYPE="text" NAME="Topiclen" size="4" value="<%=Node.getAttribute("Topiclen")%>">
</td>
<td class="td1">
帖子排序：<SELECT NAME="Orders" ID="Orders">
	<option value="0" SELECTED>默认最新排序(推荐使用)</option>
	<option value="1">按照时间(按最新主题时间)</option>
	<option value="2">按照时间(按最新回复时间)</option>
	<option value="3">按照点击(最热帖)</option>
	</SELECT>
</td>
</tr>
<tr><td class="td1" colspan="3">
天数的限制：<INPUT TYPE="text" NAME="Sdate" value="<%=Node.getAttribute("Sdate")%>" size="3">(查询多少天内帖子，1为当天。若为空则日期不限，建议为空。)
</td></tr>
<tr><td class="td1" colspan="3">
显示的类型：<SELECT NAME="TopicType" ID="TopicType">
	<option value="0" SELECTED>显示主题</option>
	<option value="1">显示精华主题</option>
	<option value="2">显示主题和回复</option>
	</SELECT>
	(不推荐数据量大的用户使用调用主题和回复。)
</td>
</tr>
<tr><td class="td1" colspan="3">
调用的版面：<SELECT id="Boardid0" NAME="Boardid"></SELECT>
<BR>
版面&nbsp;&nbsp;设置：<SELECT NAME="BoardType" ID="BoardType">
	<option value="0" SELECTED>只显示该版面的数据</option>
	<option value="1">显示该版面的下级所有版面的数据</option>
	<option value="2">显示该版面和下级所有版面的数据</option>
	</SELECT>
<BR>版面的限制：<SELECT NAME="BoardLimit" ID="BoardLimit">
	<option value="0" SELECTED>显示所有数据</option>
	<option value="1">不显示特殊版面数据</option>
	</SELECT>（特殊版面指隐藏版面和认证版面）
</td>
</tr>
<tr><td class="td1" colspan="3">
单独用户ID：<INPUT TYPE="text" NAME="UserIDList" value="<%=Node.getAttribute("UserIDList")%>">(请填写用户会员ID,用英文逗号分隔)
</td>
</tr>
</table>
<SCRIPT LANGUAGE="JavaScript">
<!--
BoardJumpListSelect_Admin('<%=Boardid%>',"Boardid0","选取所有版面","",0);
//-->
</SCRIPT>
</div>
<div id="News_2" style="display:none">
<!-- 信息调用 -->
<table border="0" cellpadding="3" cellspacing="1" width="100%">
<tr>
<td></td>
</tr>
</table>
</div>
<div id="News_3" style="display:none">
<!-- 版块调用 -->
<table border="0" cellpadding="3" cellspacing="1" width="100%">
<tr>
<td class="td1">
显示模式：<SELECT NAME="Orders" ID="Orders">
	<option value="0" SELECTED>树型结构</option>
	<option value="1">地图结构</option>
	</SELECT>
</td>
<td class="td1">
<input type="text" name="BoardTab" value="<%=Node.getAttribute("BoardTab")%>" size="2">(地图结构时，限制每行显示数量)
</td>
</tr>
<tr>
<td class="td1" colspan="2">
限制调用版块的层数：<input type="text" name="Depth" size="2" value="<%=Node.getAttribute("Depth")%>"><BR>(如0,表示只调用第一级分类
;为空则表示调用所有，当地图结构模式时，层数不能超过1;)
</td>
</tr>
<tr>
<td class="td1">
调用的版面：<SELECT id="Boardid1" NAME="Boardid"></SELECT>
</td>
<td class="td1">
<input type="radio" class="radio" name="Stats" value="0">显示所有版块
<input type="radio" class="radio" name="Stats" value="1" checked>不显示隐藏版块
</td>
</tr>
</table>
<SCRIPT LANGUAGE="JavaScript">
<!--
BoardJumpListSelect_Admin('<%=Boardid%>',"Boardid1","选取所有版面","",0);
//-->
</SCRIPT>
</div>
<div id="News_4" style="display:none">
<!-- 会员调用 -->
<table border="0" cellpadding="3" cellspacing="1" width="100%">
<tr>
<td class="td1">
显示记录数：<INPUT TYPE="text" NAME="Total" size="3" value="<%=Node.getAttribute("Total")%>">
</td>
<td class="td1">
会员排序：<SELECT NAME="UserOrders" ID="UserOrders">
	<option value="0" SELECTED>按注册时间</option>
	<option value="1">按用户文章</option>
	<option value="2">按用户主题</option>
	<option value="3">按用户精华</option>
	<option value="4">按用户金钱</option>
	<option value="5">按用户经验</option>
	<option value="6">按用户魅力</option>
	<option value="7">按用户被删帖数</option>
	<option value="8">按用户登陆次数</option>
	</SELECT>
</td>
</tr>
</table>
</div>
<div id="News_5" style="display:none">
<!-- 公告调用 -->
<table border="0" cellpadding="3" cellspacing="1" width="100%">
<tr>
<td class="td1">
显示记录数：<INPUT TYPE="text" NAME="Total" value="<%=Node.getAttribute("Total")%>" size="3">
</td><td class="td1">
标题长度：<INPUT TYPE="text" NAME="Topiclen" value="<%=Node.getAttribute("Topiclen")%>" size="4">