forumnewssetting.asp

公司企业网站管理系统全站源码正式免费版

</td>
</tr>
<tr>
<td class="td1" colspan="2">
调用的版面：<SELECT id="Boardid2" NAME="Boardid"></SELECT>
</td>
</tr>
</table>
<SCRIPT LANGUAGE="JavaScript">
<!--
BoardJumpListSelect_Admin('<%=Boardid%>',"Boardid2","选取所有版面","",0);
//-->
</SCRIPT>
</div>
<div id="News_6" style="display:none">
<!-- 展区调用 -->
<table border="0" cellpadding="3" cellspacing="1" width="100%">
<tr>
<td>
显示记录数：<INPUT TYPE="text" NAME="Total" value="<%=Node.getAttribute("Total")%>" size="3">
&nbsp;&nbsp;&nbsp;&nbsp;
每行显示个数：<INPUT TYPE="text" NAME="Tab" value="<%=Node.getAttribute("Tab")%>" size="3">
&nbsp;&nbsp;&nbsp;&nbsp;标题长度：<INPUT TYPE="text" NAME="Topiclen" value="<%=Node.getAttribute("Topiclen")%>" size="4">
<br>
调用的版面：<SELECT id="Boardid3" NAME="Boardid"></SELECT>
版面限制设置：
	<SELECT NAME="BoardLock" ID="BoardLock">
	<option value="0">不限制</option>
	<option value="1">该版面不被调用</option>
	<option value="2">只调用该版面</option>
	<option value="3">该版面的下级版面</option>
	<option value="4">该版及下级所有版面</option>
	</SELECT>
<BR>版面的限制：<SELECT NAME="BoardLimit" ID="BoardLimit">
	<option value="0" SELECTED>显示所有数据</option>
	<option value="1">不显示特殊版面数据</option>
	</SELECT>（特殊版面指隐藏版面和认证版面）
<br>
调用文件类型 ： <SELECT NAME="FileType" ID="FileType">
	<option value="all" SELECTED>所有文件</option>
	<option value="0">文件集</option>
	<option value="1">图片集</option>
	<option value="2">FLASH集</option>
	<option value="3">音乐集</option>
	<option value="4">电影集</option>
	</SELECT>
<br>
显示排序：<SELECT NAME="FileOrders" ID="FileOrders">
	<option value="0" SELECTED>默认</option>
	<option value="1">按浏览次数</option>
	<option value="2">按下载次数</option>
	<option value="3">按文件大小</option>
	</SELECT>
</td>
</tr>
</table>
<SCRIPT LANGUAGE="JavaScript">
<!--
BoardJumpListSelect_Admin('<%=Boardid%>',"Boardid3","选取所有版面","",0);
//BoardJumpListSelect_Admin(<%=Boardid%>,"Boardid3","选取所有版面","",0);
//-->
</SCRIPT>
</div>
<div id="News_7" 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>
				</SELECT>
			</td>
		</tr>
	</table>
</div>
<div id="News_8" style="display:none">
<!-- 信息调用 -->
<table border="0" cellpadding="3" cellspacing="1" width="100%">
<tr>
<td></td>
</tr>
</table>
</div>
<!-- 变量说明 -->
<div id="skininfo_0" style="display:none"></div>
<div id="skininfo_1" style="display:none">
	<ol>
	
	<li>标题：{$Topic}</li>
	<li>作者：{$UserName}</li>
	<li>发表时间：{$PostTime}</li>
	<li>回复者：{$ReplyName}</li>
	<li>回复时间：{$ReplyTime}</li>
	<li>版块名称：{$BoardName}</li>
	<li>版块说明：{$BoardInfo}</li>
	<li>心情图标：{$Face}</li>
	<li>帖子ID：{$ID}</li>
	<li>帖子ReplyID：{$ReplyID}</li>
	<li>版面ID：{$Boardid}</li>
	</ol>
</div>
<div id="skininfo_2" style="display:none">
	<ol>
	<li>□- 主题总数 ：{$TopicNum}</li>
	<li>□- 论坛贴数 ：{$PostNum}</li>
	<li>□- 注册人数 ：{$JoinMembers}</li>
	<li>□- 论坛在线 ：{$AllOnline}</li>
	<li>□- 新进会员 ：{$LastUser}</li>
	<li>□- 今日帖数 ：{$TodayPostNum}</li>
	<li>□- 昨日贴数 ：{$YesterdayPostNum}</li>
	<li>□- 高峰贴数 ：{$TopPostNum}</li>
	<li>□- 最高在线 ：{$TopOnline}</li>
	<li>□- 建站时间 ：{$BuildDay}</li>
	</ol>
</div>
<div id="skininfo_3" style="display:none">
<ol>
<li>版块ID：{$BoardID}</li>
<li>版块名称：{$BoardName}</li>
<li>版块说明：{$BoardInfo}</li>
<li>版块下级分版数：{$BoardChild}</li>
<li>版块帖子数：{$PostNum}</li>
<li>版块主题数：{$TopicNum}</li>
<li>版块当天发帖数：{$TodayNum}</li>
<li>版块规则说明：{$Rules}</li>
</ol>
</div>
<div id="Board_Input" style="display:none">
<fieldset title="模板变量" style="padding:5px">
<legend>&nbsp;版块特殊设置&nbsp;</legend>
区版块前标识符：<input type="text" name="Board_Input0" value="<%=Server.Htmlencode(Node.selectSingleNode("Board_Input0").text&"")%>" size="40">
<br>
子版块前标识符：<input type="text" name="Board_Input1" value="<%=Server.Htmlencode(Node.selectSingleNode("Board_Input1").text&"")%>" size="40">
<br>
上下级版块间隔：<input type="text" name="Board_Input2" value="<%=Server.Htmlencode(Node.selectSingleNode("Board_Input2").text&"")%>" size="40">
<br>
同级版块间隔：<input type="text" name="Board_Input4" value="<%=Server.Htmlencode(Node.selectSingleNode("Board_Input4").text&"")%>" size="40">
<br>
版块换行：<input type="text" name="Board_Input3" value="<%=Server.Htmlencode(Node.selectSingleNode("Board_Input3").text&"")%>" size="40">
</fieldset>
</div>
<div id="skininfo_4" style="display:none">
	<ol>
	<li>用户ID ：{$UserID}</li>
	<li>用户名 ：{$UserName}</li>
	<li>用户主题数 ：{$UserTopic}</li>
	<li>用户帖子数 ：{$UserPost}</li>
	<li>用户精华数 ：{$UserBest}</li>
	<li>用户金钱 ：{$UserWealth}</li>
	<li>用户魅力 ：{$UserCP}</li>
	<li>用户经验 ：{$UserEP}</li>
	<li>用户被删帖数 ：{$UserDel}</li>
	<li>用户性别 ：{$UserSex}</li>
	<li>用户注册时间 ：{$JoinDate}</li>
	<li>用户登陆次数 ：{$UserLogins}</li>
	</ol>
</div>
<div id="skininfo_5" style="display:none">
	<ol>
	<li>公告ID：{$ID}</li>
	<li>标题：{$Topic}</li>
	<li>作者：{$UserName}</li>
	<li>版块名称：{$BoardName}</li>
	<li>版块ID：{$Boardid}</li>
	<li>时间：{$PostTime}</li>
	</ol>
</div>
<div id="skininfo_6" style="display:none">
	<ol>
	<li>作者：{$UserName}</li>
	<li>版块名称：{$BoardName}</li>
	<li>版块ID：{$Boardid}</li>
	<li>时间：{$AddTime}</li>
	<li>文件ID：{$ID}</li>
	<li>文件名：{$Filename}</li>
	<li>文件说明：{$Readme}</li>
	<li>文件类型：{$FileType}</li>
	<li>文件预览文件名：{$ViewFilename}</li>
	<li>浏览数：{$ViewNum}</li>
	<li>下载数：{$DownNum}</li>
	<li>文件大小：{$FileSize}</li>
	<li>帖子主题ID：{$RootID}</li>
	<li>帖子对应ID：{$ReplyID}</li>
	<li>交替颜色：{$TColor}</li>
	</ol>
</div>
<div id="Show_Input" style="display:none">
<fieldset title="模板变量" style="padding:5px">
<legend>&nbsp;展区特殊设置&nbsp;</legend>
图片宽度：<input type="text" name="PicWidth" value="<%=Node.getAttribute("PicWidth")%>" size="10"> 象素
<br>
图片高度：<input type="text" name="PicHeight" value="<%=Node.getAttribute("PicHeight")%>" size="10"> 象素
<br>
交替颜色1：<input type="text" name="TColor1" id="TColor1" value="<%=Node.getAttribute("TColor1")%>" size="10">
<img border=0 src="../images/post/rect.gif" style="cursor:pointer;background-Color:<%=Node.getAttribute("TColor1")%>;" onclick="Getcolor(this,'TColor1');" title="选取颜色!">
<br>
交替颜色2：<input type="text" name="TColor2" id="TColor1" value="<%=Node.getAttribute("TColor2")%>" size="10">
<img border=0 src="../images/post/rect.gif" style="cursor:pointer;background-Color:<%=Node.getAttribute("TColor2")%>;" onclick="Getcolor(this,'TColor2');" title="选取颜色!">
<br>
换行标记：<input type="text" name="Board_Input0" value="<%=Server.Htmlencode(Node.selectSingleNode("Board_Input0").text&"")%>" size="40">
</fieldset>
</div>
<div id="skininfo_7" style="display:none">
	<ol>
	<li>圈子ID：{$IGID}</li>
	<li>圈子名称：{$IGName}</li>
	<li>圈子说明：{$GrouInfo}</li>
	<li>圈子创建者ID：{$AppUserID}</li>
	<li>圈子创建者名称：{$AppUserName}</li>
	<li>圈子成员数：{$IGUserNum}</li>
	<li>圈子状态：{$Stats}</li>
	<li>圈子帖子总数：{$IGPostNum}</li>
	<li>圈子主题总数：{$IGTopicNum}</li>
	<li>圈子今日发贴数：{$IGTodayNum}</li>
	<li>圈子昨日发贴数：{$IGYesterdayNum}</li>
	<li>圈子成员数上限：{$LimitUser}</li>
	<li>创建时间：{$PassDate}</li>
	</ol>
</div>
<div id="skininfo_8" style="display:none">
	<ol>
	<li>验证码：{$CheckCode}</li>
	</ol>
</div>
<iframe width="260" height="165" id="colourPalette" src="../images/post/nc_selcolor.htm" style="visibility:hidden; position: absolute; left: 0px; top: 0px;border:1px gray solid" frameborder="0" scrolling="no" ></iframe>
<!-- 变量说明 -->
<!-- 默认模式 -->

<!-- 默认模式 -->
<SCRIPT LANGUAGE="JavaScript">
<!--
function NewsTypeSel(Val){
	var skininfo = document.getElementById("skininfo_"+Val);
	if (skininfo){
		document.getElementById("skin_info").innerHTML = skininfo.innerHTML;
	}
	if (Val>0){
		var News = document.getElementById("News_"+Val);
		document.getElementById("News").innerHTML = News.innerHTML;
	}else{
		document.getElementById("News").innerHTML = "";
	}
	if (Val==3){
	document.getElementById("DisInput").innerHTML = document.getElementById("Board_Input").innerHTML;
	}
	else if(Val==6){
	document.getElementById("DisInput").innerHTML = document.getElementById("Show_Input").innerHTML;
	}
	else
	{
	document.getElementById("DisInput").innerHTML = "";
	}
}

function OutputNewsCode(Val){
	var obj = TheForm.Newscode;
	if (obj){
		if (Val!=''){
			obj.value = "<scr"+"ipt src=\"Dv_News.asp?GetName="+Val.toLowerCase()+"\"><\/scr"+"ipt>";
		}else{
			obj.value = "";
		}
	}
}
//默认值
CheckSel("FormatTime",'<%=Node.getAttribute("FormatTime")%>');
CheckSel("NewsType",'<%=Node.getAttribute("NewsType")%>');
CheckSel("Orders",'<%=Node.getAttribute("Orders")%>');
CheckSel("UserOrders",'<%=Node.getAttribute("UserOrders")%>');
NewsTypeSel(<%=Node.getAttribute("NewsType")%>);
CheckSel("TopicType",'<%=Node.getAttribute("TopicType")%>');
CheckSel("BoardLimit",'<%=Node.getAttribute("BoardLimit")%>');
chkradio(TheForm.Stats,'<%=Node.getAttribute("Stats")%>');
CheckSel("BoardLock",'<%=Node.getAttribute("BoardLock")%>');
CheckSel("FileType",'<%=Node.getAttribute("FileType")%>');BoardType
CheckSel("FileOrders",'<%=Node.getAttribute("FileOrders")%>');
CheckSel("BoardType",'<%=Node.getAttribute("BoardType")%>');
//-->
</SCRIPT>
<%
End Sub

Sub NewsList()
	Set XmlDoc = Server.CreateObject("msxml2.FreeThreadedDOMDocument"& MsxmlVersion)
	If Not XmlDoc.load(NewsConfigFile) Then
		ErrMsg = "首页调用列表为空，请添加首页调用后再执行本操作!"
		Dvbbs_Error()
		Exit Sub
	End If
	Dim SendLogNode,Childs
	Set SendLogNode = XmlDoc.DocumentElement.SelectNodes("NewsCode")
	Childs = SendLogNode.Length	'列表数
	%>
	<br>
	<table cellpadding="3" cellspacing="1" border="0" align="center" width="100%">
		<tr><th colspan="7" height="23">首页调用列表</th></tr>
		<tr>
			<td width="1%" height="23" align=center nowrap>选取</td>
			<td width="10%" align=center>类别</td>
			<td width="10%" align=center>名称</td>
			<td width="*" align=center nowrap>说明</td>
			<td width="20%" align=center>添加时间/更新时间</td>
			<td width="20%" align=center>添加者</td>
			<td width="1%" align=center>操作</td>
		</tr>
		<form action="?" method="post" name="TheForm">
		<%
		Dim SearchStr,Topic,i
		i=0
		For Each Node in SendLogNode
		%>
		<tr>
			<td class="<%If i Mod 2 = 1 Then %>td1<%Else%>td2<%End If%>" align=center>
			<INPUT TYPE="checkbox" class="checkbox" NAME="DelNodes" value="<%=Node.getAttribute("AddTime")%>">
			</td>
			<td class="<%If i Mod 2 = 1 Then %>td1<%Else%>td2<%End If%>" align=center><%=NewsCodeType(Node.getAttribute("NewsType"))%></td>
			<td class="<%If i Mod 2 = 1 Then %>td1<%Else%>td2<%End If%>" align=center><%=Node.getAttribute("NewsName")%></td>
			<td class="<%If i Mod 2 = 1 Then %>td1<%Else%>td2<%End If%>">
			<%=Node.getAttribute("Intro")%>
			<br><font color="gray">更新时间间隔为：(<font color="red"><%=Node.getAttribute("Updatetime")%></font>) 秒。</font>
			</td>
			<td class="<%If i Mod 2 = 1 Then %>td1<%Else%>td2<%End If%>"><%=Node.getAttribute("AddTime")%><br><font color="red"><%=Node.getAttribute("LastTime")%></font></td>
			<td class="<%If i Mod 2 = 1 Then %>td1<%Else%>td2<%End If%>" align=center><%=Node.getAttribute("MasterName")%><br><font color="gray"><%=Node.getAttribute("MasterIP")%></font></td>
			<td class="<%If i Mod 2 = 1 Then %>td1<%Else%>td2<%End If%>" align=center><input type="submit" class="button"  onclick="this.form.Act.value='EditNewsInfo';Selchecked(this.form.DelNodes,<%=i%>);" value="编辑">
			<input type="button" class="button" value="预览" onclick="runscript(viewcode,'<%=Node.getAttribute("NewsName")%>');">
			</td>
		</tr>
		<%
			i=i+1
		Next
		%>
		<tr>
			<td colspan="7" class="td2">
			<input type="hidden" name="viewcode" value="">
			<input type="hidden" name="Act" value="DelNewsInfo">
			<input type="submit" class="button" name="Submit" value="删除记录"  onclick="{if(confirm('注意：所删除的模版将不能恢复！')){this.form.submit();return true;}return false;}">  <input type=checkbox class=checkbox name=chkall value=on onclick="CheckAll(this.form)">全选</td>
		</tr>
		</form>
	</table>
	<SCRIPT LANGUAGE="JavaScript">
	<!--
	function Selchecked(obj,n){
		if (obj[n]){
			obj[n].checked=true;
		}else{
			obj.checked=true;
		}
	}
	function runscript(n,Val){
	TheForm.viewcode.value = "<scr"+"ipt src=\"Dv_News.asp?GetName="+Val.toLowerCase()+"\"><\/scr"+"ipt>";
	txtRun=n;	window.open("../Dv_NewsView.asp",'Dv_ViewNews','toolbar=no,location=no,directories=no,status=yes,menubar=yes,scrollbars=yes,resizable=yes,copyhistory=no,width=780,height=450,left=200,top=150');
	}
	//-->
	</SCRIPT>
	</table>
	<%
	Set XmlDoc = Nothing
End Sub


Function NewsCodeType(TypeVal)
	NewsCodeType = "未知"
	Select Case Cstr(TypeVal)
	Case "1"
		NewsCodeType = "帖子"
	Case "2"
		NewsCodeType = "信息"
	Case "3"
		NewsCodeType = "版块"
	Case "4"
		NewsCodeType = "会员"
	Case "5"
		NewsCodeType = "公告"
	Case "6"
		NewsCodeType = "展区"
	Case "7"
		NewsCodeType = "圈子"
	Case "8"
		NewsCodeType = "登录框"
	End Select
	NewsCodeType = NewsCodeType & "调用"
End Function
%>