?? 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="Dv_News.asp?GetName=<%=Node.getAttribute("NewsName")%>"></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> 模板變量說明 </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">
</td>
<td class="td2" align="center">
<INPUT TYPE="submit" class="button" value="提交"> <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>
版面 設置：<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">
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -