📄 admin_forum.asp
字号:
</tr>
<%
If RowCount = 0 Then
Response.Write "<tr><td colspan=7 align=center class=td_50>没有任何"& EL_Channel.ItemName &"</td></tr>"
Else
rsTopic.Open()
For i = 1 To RowCount
%>
<tr class="td_25" onMouseOut="this.className='td_25'" onMouseOver="this.className='MouseOver_25'">
<td align="center"><input name="CheckObject" type="checkbox" id="CheckObject" value="<%=rsTopic("TopicID")%>"></td>
<td align="center"><%=rsTopic("TopicID")%></td>
<td align="center"><%=EL_Common.ServerHTMLEncode(rsTopic("BoardName"))%></td>
<td style="padding-left:5px;"><a href="Admin_Forum.asp?ChannelID=<%=EL_Channel.ChannelID%>&Action=Show&TopicID=<%=rsTopic("TopicID")%>"><%=EL_Common.ServerHTMLEncode(rsTopic("Title"))%></a></td>
<td align="center"><a href="Admin_User.asp?Action=Show&UserID=<%=rsTopic("UserID")%>"><%=EL_Common.ServerHTMLEncode(rsTopic("UserName"))%></a></td>
<td align="center"><%=rsTopic("PostDateTime")%></td>
<td align="center"><a href="Admin_Forum.asp?ChannelID=<%=EL_Channel.ChannelID%>&Action=Restore&TopicID=<%=rsTopic("TopicID")%>" onClick="return confirm('确定要还原此<%=EL_Channel.ItemName%>吗？')">还原</a> | <a href="Admin_Forum.asp?ChannelID=<%=EL_Channel.ChannelID%>&Action=DeleteTrue&TopicID=<%=rsTopic("TopicID")%>" onClick="return confirm('确定要彻底删除此<%=EL_Channel.ItemName%>吗？')">彻底删除</a></td>
</tr>
<%
If i<RowCount Then rsTopic.MoveNext
Next
rsTopic.Close()
End If
%>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td width="12%"><span id="myselect">[<a href="javascript:CheckedAll()">全选</a>]</span></td>
<td width="88%" align="right" nowrap><%Call EL_Common.ShowPage(URLParameters, CurrentPage, PageSizes, PageCounts, TotalRowCount, EL_Channel.ItemName, EL_Channel.ItemUnit)%></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td height="50" align="center">
<%
Dim Disabled
If RowCount = 0 Then Disabled = "disabled"
%>
<input type="button" name="button6" id="button6" value="彻底删除选定<%=EL_Channel.ItemName%>" onClick="doDeleteTrue()" <%=Disabled%>>
<input type="button" name="button5" id="button7" value="清空回收站" onClick="doDeleteAllTrue()" <%=Disabled%>>
<input type="button" name="button7" id="button8" value="还原选定<%=EL_Channel.ItemName%>" onClick="doRestore()" <%=Disabled%>>
<input type="button" name="button8" id="button9" value="还原所有<%=EL_Channel.ItemName%>" onClick="doRestoreAll()" <%=Disabled%>></td>
</tr>
</table>
</form>
<form name="search" method="get" action="<%=EL_CurrentScriptName%>">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td width="5%" nowrap class="td_50"><%=EL_Channel.ItemName%>搜索：</td>
<td width="95%" class="td_50">
<select name="Search_Field" id="Search_Field">
<option value="Title"><%=EL_Channel.ItemName%>标题</option>
<option value="Content"><%=EL_Channel.ItemName%>内容</option>
<option value="UserName"><%=EL_Channel.ItemName%>作者</option>
</select>
<input name="Search_Keywords" type="text" id="Search_Keywords" value="关键字">
<input type="submit" name="Submit3" value="搜索">
<input name="ChannelID" type="hidden" id="ChannelID" value="<%=EL_Channel.ChannelID%>">
<input name="Action" type="hidden" id="Action" value="Recycled"></td>
</tr>
</table>
</form>
<%
EL_Common.ShowScriptError()
End Sub
Sub Main()
On Error Resume Next
If ManageType = "Recycled" Then Response.Redirect "Admin_Forum.asp?ChannelID="& EL_Channel.ChannelID &"&Action=Recycled"
Dim BoardOptions
BoardOptions = ShowBoardOptions(EL_Channel.ChannelID, 0, 0, "")
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="redText">·以下操作结果为彻底删除数据，包括回收站中的数据，不能恢复！并不会对用户的论坛<%=ExpItemName%>进行修改</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td colspan="2" class="top_25"><strong>删除多少天前的帖子</strong></td>
</tr>
<form name="form1" action="Admin_Forum.asp" method="post">
<tr>
<td class="td_ItemName"><strong>论坛<%=EL_Channel.ClassItemName%>范围</strong></td>
<td class="td_25"><label>
<select name="BoardID" id="BoardID">
<option value="0">全部<%=EL_Channel.ClassItemName%></option>
<%=BoardOptions%>
</select>
</label></td>
</tr>
<tr>
<td width="15%" class="td_ItemName"><strong>删除天数</strong></td>
<td width="85%" class="td_25">
<input name="DayNum" type="text" id="DayNum" value="100" size="10">
天 </td>
</tr>
<tr>
<td class="td_ItemName"></td>
<td class="td_25">
<input type="submit" name="button" id="button" value=" 提 交 ">
<input name="ChannelID" type="hidden" id="ChannelID" value="<%=EL_Channel.ChannelID%>">
<input name="Action" type="hidden" id="Action" value="Delete1"></td>
</tr>
</form>
<tr>
<td height="28" colspan="2" class="top_25"><strong>删除多少天前的无回复的主题</strong></td>
</tr>
<form name="form2" action="Admin_Forum.asp" method="post">
<tr>
<td class="td_ItemName"><strong>论坛<%=EL_Channel.ClassItemName%>范围</strong></td>
<td class="td_25">
<select name="BoardID" id="BoardID">
<option value="0">全部<%=EL_Channel.ClassItemName%></option>
<%=BoardOptions%>
</select> </td>
</tr>
<tr>
<td class="td_ItemName"><strong>删除天数</strong></td>
<td class="td_25"><input name="DayNum" type="text" id="DayNum" value="100" size="10">
天 </td>
</tr>
<tr>
<td class="td_ItemName"></td>
<td class="td_25">
<input type="submit" name="button2" id="button2" value=" 提 交 ">
<input name="ChannelID" type="hidden" id="ChannelID" value="<%=EL_Channel.ChannelID%>">
<input name="Action" type="hidden" id="Action" value="Delete2"></td>
</tr>
</form>
<tr>
<td colspan="2" class="top_25"><strong>删除指定用户的帖子</strong></td>
</tr>
<form name="form3" action="Admin_Forum.asp" method="post">
<tr>
<td class="td_ItemName"><strong>论坛<%=EL_Channel.ClassItemName%>范围</strong></td>
<td class="td_25"><select name="BoardID" id="BoardID">
<option value="0">全部<%=EL_Channel.ClassItemName%></option>
<%=BoardOptions%>
</select> </td>
</tr>
<tr>
<td class="td_ItemName"><strong>指定用户名</strong></td>
<td class="td_25"><input name="UserName" type="text" id="UserName" size="20"></td>
</tr>
<tr>
<td class="td_ItemName"></td>
<td class="td_25"><input type="submit" name="button3" id="button3" value=" 提 交 ">
<input name="ChannelID" type="hidden" id="ChannelID" value="<%=EL_Channel.ChannelID%>">
<input name="Action" type="hidden" id="Action" value="Delete3"></td>
</tr>
</form>
<tr>
<td colspan="2" class="top_25"><strong>移动指定日期的主题</strong></td>
</tr>
<form name="form4" action="Admin_Forum.asp" method="post">
<tr>
<td class="td_ItemName"><strong>多少天前</strong></td>
<td class="td_25"><input name="DayNum" type="text" id="DayNum3" value="100" size="10">
天 </td>
</tr>
<tr>
<td class="td_ItemName"><strong>原<%=EL_Channel.ClassItemName%></strong></td>
<td class="td_25"><select name="BoardID" id="BoardID">
<%=BoardOptions%>
</select></td>
</tr>
<tr>
<td class="td_ItemName"><strong>目标<%=EL_Channel.ClassItemName%></strong></td>
<td class="td_25"><select name="TargetBoardID" id="TargetBoardID">
<%=BoardOptions%>
</select></td>
</tr>
<tr>
<td class="td_ItemName"></td>
<td class="td_25"><input type="submit" name="button4" id="button4" value=" 提 交 ">
<input name="ChannelID" type="hidden" id="ChannelID" value="<%=EL_Channel.ChannelID%>">
<input name="Action" type="hidden" id="Action" value="Move1"></td>
</tr>
</form>
<tr>
<td colspan="2" class="top_25"><strong>移动指定用户的主题</strong></td>
</tr>
<form name="form5" action="Admin_Forum.asp" method="post">
<tr>
<td class="td_ItemName"><strong>指定用户名</strong></td>
<td class="td_25"><input name="UserName" type="text" id="DayNum2" size="20"></td>
</tr>
<tr>
<td class="td_ItemName"><strong>原<%=EL_Channel.ClassItemName%></strong></td>
<td class="td_25"><select name="BoardID2" id="BoardID2">
<%=BoardOptions%>
</select></td>
</tr>
<tr>
<td class="td_ItemName"><strong>目标<%=EL_Channel.ClassItemName%></strong></td>
<td class="td_25"><select name="TargetBoardID" id="TargetBoardID">
<%=BoardOptions%>
</select></td>
</tr>
<tr>
<td class="td_ItemName"></td>
<td class="td_25"><input type="submit" name="button4" id="button5" value=" 提 交 ">
<input name="ChannelID" type="hidden" id="ChannelID" value="<%=EL_Channel.ChannelID%>">
<input name="Action" type="hidden" id="Action" value="Move2"></td>
</tr>
</form>
</table>
<%
EL_Common.ShowScriptError()
End Sub
%>
<%
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) &" "
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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -