📄 admin_forum.asp

📁 依蓝旅游网站管理系统Elan2008.SP2
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%
Option Explicit
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
%>
<!--#Include File="../Conn.asp"-->
<!--#Include File="Admin_CheckPurview.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href='Admin_Style.css' type='text/css' rel='stylesheet'>
<title><%=EL_Channel.ChannelName%></title>
<script language="javascript" src="../js/Common.js"></script>
<script language="javascript" src="../js/InstallDir.js"></script>
</head>
<body>
<%
Call EL_Common.CheckChannel(EL_Channel.ChannelID, 9)
Dim ManageType, Search_Keywords, Search_Field
ManageType = EL_Common.ELRequest("ManageType", 1)
Search_Keywords = EL_Common.ReplaceBadChar(EL_Common.ELRequest("Search_Keywords", 1))
Search_Field = EL_Common.ReplaceBadChar(EL_Common.ELRequest("Search_Field", 1))
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td align="center" class="top_25"><strong>论坛帖子管理</strong></td>
  </tr>
  <tr>
    <td class="td_50">管理导航：<a href="Admin_Forum.asp?ChannelID=<%=EL_Channel.ChannelID%>">帖子管理首页</a> | <a href="Admin_Forum.asp?ChannelID=<%=EL_Channel.ChannelID%>&ManageType=Recycled">帖子回收站</a></td>
  </tr>
</table>
<br>
<%
Select Case Action
   Case "":                Call Main()
   Case "Delete1":         Call SaveSetting(8)
   Case "Delete2":         Call SaveSetting(9)
   Case "Delete3":         Call SaveSetting(10)
   Case "Move1":           Call SaveSetting(11)
   Case "Move2":           Call SaveSetting(12)
   Case "Recycled":        Call Recycled()
   Case "DeleteTrue"       Call SaveSetting(13)
   Case "DeleteAllTrue":   Call SaveSetting(14)
   Case "Restore":         Call SaveSetting(15)
   Case "RestoreAll":      Call SaveSetting(16)
   Case "Show":            Call ShowTopic()
End Select
Call EL_Common.Bottom()
Call ApplicationTerminate()

Sub SaveSetting(UpdateType)
   On Error Resume Next
   Dim SettingCmd
   Dim DayNum, BoardID, ToBoardID, UserName
   
   DayNum = EL_Common.ELRequest("DayNum", 2)
   BoardID = EL_Common.ELRequest("BoardID", 2)
   ToBoardID = EL_Common.ELRequest("ToBoardID", 2)
   UserName = EL_Common.ELRequest("UserName", 1)
   
   If UpdateType > 12 Then
      DayNum = EL_Common.ELRequest("TopicID", 2)
	  UserName = EL_Common.ELRequest("CheckObject", 1)
	  If DayNum <> 0 Then UserName = EL_Common.Join2String(UserName, DayNum, ",")
   End If
   
   Call EL_Common.InitCommand(SettingCmd, "EL_SP_TopicSetting")
   With SettingCmd
      .Parameters.Append .CreateParameter("RETURN", 2, 4)
      .Parameters.Append .CreateParameter("@UpdateType", 3, 1, 4, UpdateType)
      .Parameters.Append .CreateParameter("@TopicID", 3, 1, 4, DayNum)
      .Parameters.Append .CreateParameter("@BoardID", 3, 1, 4, BoardID)
      .Parameters.Append .CreateParameter("@ChannelID", 3, 1, 4, EL_Channel.ChannelID)
      .Parameters.Append .CreateParameter("@ToBoardID", 3, 1, 4, ToBoardID)
      .Parameters.Append .CreateParameter("@Message", 200, 1, 500, UserName)
      .Execute()
   End With
   
   If SettingCmd(0) = 42 Then
      EL_Common.ShowErrorMsg("指定目标"& EL_Channel.ClassItemName &"不存在或已被禁用")
	  Set SettingCmd = Nothing
	  Exit Sub
   End If
   Set SettingCmd = Nothing
   Select Case UpdateType
      Case 8, 9, 10:
	     EL_Common.ShowSuccessMsg("批量删除成功")
	  Case 11, 12:
	     EL_Common.ShowSuccessMsg("批量移动成功")
	  Case Else: 
	     If ComeURL = "" Then ComeURL = "Admin_Forum.asp?Action=Recycled"
		 EL_Common.ShowScriptError()
		 Response.Redirect ComeURL
   End Select   
   EL_Common.ShowScriptError()
End Sub

Sub ShowTopic()
On Error Resume Next
Dim TopicCmd, rsTopic
Dim TopicID

TopicID = EL_Common.ELRequest("TopicID", 2)
Call EL_Common.InitCommonCmd(TopicCmd, rsTopic, "EL_ForumTopic", "Title,UserName,PostDateTime,Content", "ChannelID="& EL_Channel.ChannelID &" AND TopicID="& TopicID)
rsTopic.Close()
If TopicCmd(0) <> 1 Then
   EL_Common.ShowErrorMsg("指定帖子不存在 ")
   Set rsTopic = Nothing
   Set TopicCmd = Nothing
   Exit Sub
End If
rsTopic.Open()
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td class="top_25"><strong>浏览帖子</strong></td>
  </tr>
  <tr>
    <td align="center" class="td_50"><strong><%=EL_Common.ServerHTMLEncode(rsTopic("Title"))%></strong></td>
  </tr>
  <tr>
    <td align="center" class="td_25">作者：<%=EL_Common.ServerHTMLEncode(rsTopic("UserName"))%> &nbsp;　发表日期：<%=rsTopic("PostDateTime")%></td>
  </tr>
  <tr>
    <td class="td_25"><table width="100%" border="0" cellspacing="10" cellpadding="0">
        <tr>
          <td><%=rsTopic("Content")%></td>
        </tr>
      </table></td>
  </tr>
  <tr>
    <td align="right" class="td_25">操作选项：<a href="Admin_Forum.asp?ChannelID=<%=EL_Channel.ChannelID%>&Action=DeleteTrue&TopicID=<%=TopicID%>">彻底删除</a> | <a href="Admin_Forum.asp?ChannelID=<%=EL_Channel.ChannelID%>&Action=Restore&TopicID=<%=TopicID%>">还原</a> &nbsp;</td>
  </tr>
</table>
<%
rsTopic.Close()
Set rsTopic = Nothing
Set TopicCmd = Nothing
EL_Common.ShowScriptError()
End Sub

Sub Recycled()
On Error Resume Next
Dim TopicCmd, rsTopic, i
Dim RowCount, TotalRowCount, PageCounts
Dim SQLTables, SQLFields, SQLCondition, SQLOrder, SQL
Dim BoardID

BoardID = EL_Common.ELRequest("BoardID", 2)

SQLTables = "EL_ForumTopic,EL_ForumBoard"
SQLFields = "EL_ForumTopic.TopicID,EL_ForumTopic.BoardID,EL_ForumTopic.Title,EL_ForumTopic.UserID,EL_ForumTopic.UserName,EL_ForumTopic.PostDateTime,EL_ForumBoard.BoardName"
SQLCondition = "EL_ForumTopic.ChannelID="& EL_Channel.ChannelID &" AND EL_ForumTopic.BoardID=EL_ForumBoard.BoardID AND EL_ForumTopic.Deleted="& EL_True &" "
SQLOrder = "EL_ForumTopic.PostDateTime DESC"

If BoardID > 0 Then SQLCondition = SQLCondition &" AND EL_ForumTopic.BoardID="& BoardID &" "

If Search_Keywords<>"" And Search_Field<>"" Then 
   SQLCondition = SQLCondition &"And EL_ForumTopic."& Search_Field &" Like '%"& Search_Keywords &"%' "
End If

Call EL_Common.InitCommand(TopicCmd, "EL_SP_SplitPage")
With TopicCmd
   .Parameters.Append .CreateParameter("RETURN", 3, 4, 4)
   .Parameters.Append .CreateParameter("@Tables", 200, 1, 50, SQLTables)
   .Parameters.Append .CreateParameter("@PrimaryKey", 200, 1, 50, "EL_ForumTopic.TopicID")
   .Parameters.Append .CreateParameter("@Sort", 200, 1, 200, SQLOrder)
   .Parameters.Append .CreateParameter("@CurrentPage", 3, 1, 4, CurrentPage)
   .Parameters.Append .CreateParameter("@PageSize", 3, 1, 4, PageSizes)
   .Parameters.Append .CreateParameter("@Fields", 200, 1, 1000, SQLFields)
   .Parameters.Append .CreateParameter("@Filter", 200, 1, 1000, SQLCondition)
   .Parameters.Append .CreateParameter("@Group", 200, 1, 1, "")
   .Parameters.Append .CreateParameter("@TotalRowCount", 3, 2, 4)
   .Parameters.Append .CreateParameter("@PageCount", 3, 2, 4)
   Set rsTopic = .Execute()
End With
rsTopic.Close()
RowCount = TopicCmd(0)
TotalRowCount = TopicCmd(9)
PageCounts = TopicCmd(10)

%>
<script language="javascript">
function CheckedAll(){
  for (var i=0;i<document.myform.elements.length;i++){
    var e = document.myform.elements[i];
    if (e.type == 'checkbox' && e.name=='CheckObject' && e.disabled == false){
       e.checked = true;
    }
  }
  getObject("myselect").innerHTML = "[<a href='javascript:CancelAll()'>取消</a>]";
}
function CancelAll(){
  for (var i=0;i<document.myform.elements.length;i++){
    var e = document.myform.elements[i];
    if (e.type == 'checkbox' && e.name=='CheckObject' && e.disabled == false){
       e.checked = false;
    }
  }
  getObject("myselect").innerHTML = "[<a href='javascript:CheckedAll()'>全选</a>]";
}
function CheckObject(){
   var frm = getObject("myform");
   for (var i=0;i<frm.elements.length;i++){
    var e = frm.elements[i];
    if (e.type == 'checkbox' && e.name=='CheckObject' && e.disabled == false && e.checked == true ){
       return true
    }
  }
  return false;
}
function Check(frm){
  SubmitOnce(frm);
  return true;
}
var JURL = "<%=EL_CurrentScriptName%>?ChannelID=<%=EL_Channel.ChannelID%>";
function doDeleteTrue(){
  var frm = getObject("myform");
  if(!CheckObject()){
     alert("请至少选定1<%=EL_Channel.ItemUnit & EL_Channel.ItemName%>");
	 return false;
  }
  frm.action = JURL + "&Action=DeleteTrue";
  if(confirm("本次删除后将不能恢复，确认要彻底删除选定的<%=EL_Channel.ItemName%>吗？")){
     frm.submit();
	 return;
  }
  return false;
}
function doDeleteAllTrue(){
  var frm = getObject("myform");
  frm.action = JURL + "&Action=DeleteAllTrue";
  if(confirm("本次将彻底清空回收站中所有的<%=EL_Channel.ItemName%>，确认要清空吗？")){
     frm.submit();
	 return;
  }
  return false;
}
function doRestore(){
  var frm = getObject("myform");
  if(!CheckObject()){
     alert("请至少选定1<%=EL_Channel.ItemUnit & EL_Channel.ItemName%>");
	 return false;
  }
  frm.action = JURL + "&Action=Restore";
  if(confirm("确认要还原选定的<%=EL_Channel.ItemName%>吗？")){
     frm.submit();
	 return;
  }
  return false;
}
function doRestoreAll(){
  var frm = getObject("myform");
  frm.action = JURL + "&Action=RestoreAll";
  if(confirm("确认要还原所有的<%=EL_Channel.ItemName%>吗？")){
     frm.submit();
	 return;
  }
  return false;
}
</script>
<form name="myform" action="Admin_Forum.asp" method="post" onSubmit="return Check(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td width="3%" align="center" nowrap class="top_item"><strong>选择</strong></td>
    <td width="4%" align="center" nowrap class="top_item"><strong>ID</strong></td>
    <td width="10%" align="center" nowrap class="top_item"><strong>所属版面</strong></td>
    <td width="48%" align="center" nowrap class="top_item"><strong>标题</strong></td>
    <td width="10%" align="center" nowrap class="top_item"><strong>发表者</strong></td>
    <td width="12%" align="center" nowrap class="top_item"><strong>发表日期</strong></td>
    <td width="13%" align="center" nowrap class="top_item"><strong>操作</strong></td>
12 下一页
💿 文件大小 4678 K
👤 上传用户 libin2722
📂 所属分类企业管理
🏷️ 相关标签

#Elan #2008 #SP #旅游
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -