📄 admin_forumboard.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)
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td align="center" class="top_25"><strong><%=EL_Channel.ChannelName%>管理</strong></td>
  </tr>
  <tr>
    <td class="td_50">管理导航：<a href="Admin_ForumBoard.asp?ChannelID=<%=EL_Channel.ChannelID%>"><%=EL_Channel.ClassItemName%>管理首页</a> | <a href="Admin_ForumBoard.asp?ChannelID=<%=EL_Channel.ChannelID%>&Action=Add">添加<%=EL_Channel.ClassItemName%></a> | <a href="Admin_ForumBoard.asp?ChannelID=<%=EL_Channel.ChannelID%>&Action=UniteData"><%=EL_Channel.ClassItemName%>数据合并</a></td>
  </tr>
</table>
<br>
<%
Select Case Action
   Case "":              Call Main()
   Case "Add":           Call AddBoard()
   Case "SaveNewBoard":  Call SaveBoard(0)
   Case "Modify":        Call ModifyBoard()
   Case "SaveModify":    Call SaveBoard(1)
   Case "Delete":        Call SaveBoard(2)
   Case "Up":            Call SaveBoard(3)
   Case "Down":          Call SaveBoard(4)
   Case "UniteData":     Call UniteData()
   Case "SaveUnite":     Call SaveBoard(5)
End Select
Call EL_Common.Bottom()
Call ApplicationTerminate()

Sub CreateJs()
   Dim JsContent
   JsContent = "document.write("""
   JsContent = JsContent & Replace(Replace(ShowBoardOptions(EL_Channel.ChannelID, 0, 0, ""), """", "\"""), "'", "\'")
   JsContent = JsContent &""");"
   Call EL_Common.CreateFile(JsContent, InstallDir & EL_Channel.ChannelDir &"/Js/BoardOptions.js", True) 
End Sub

Sub SaveBoard(UpdateType)
   On Error Resume Next
   Dim BoardCmd
   Dim BoardID, ParentID, BoardName, PictrueURL, Intro, ParentPost, EnableCheckCode, Disabled, SkinID, TemplateID, TopicSkinID, TopicTemplateID, ArrManager
   
   BoardID = EL_Common.ELRequest("BoardID", 2)
   ParentID = EL_Common.ELRequest("ParentID", 2)
   BoardName = EL_Common.ELRequest("BoardName", 1)
   PictrueURL = EL_Common.ELRequest("PictrueURL", 1)
   Intro = EL_Common.ELRequest("Intro", 1)
   ParentPost = EL_Common.ELRequest("ParentPost", 2)
   EnableCheckCode = EL_Common.ELRequest("EnableCheckCode", 2)
   Disabled = EL_Common.ELRequest("Disabled", 2)
   SkinID = EL_Common.ELRequest("SkinID", 2)
   TemplateID = EL_Common.ELRequest("TemplateID", 2)
   TopicSkinID = EL_Common.ELRequest("TopicSkinID", 2)
   TopicTemplateID = EL_Common.ELRequest("TopicTemplateID", 2)
   ArrManager = EL_Common.ELRequest("ArrManager", 1)
   
   Select Case UpdateType
      Case 0, 1:
	  Case 5:
	     ParentID = EL_Common.ELRequest("TargetBoardID", 2)	     
	  Case Else:
   End Select
   
   Call EL_Common.InitCommand(BoardCmd, "EL_SP_ForumBoard")
   With BoardCmd
      .Parameters.Append .CreateParameter("RETURN", 2, 4)
	  .Parameters.Append .CreateParameter("@UpdateType", 3, 1, 4, UpdateType)
	  If UpdateType = 0 Then
	     .Parameters.Append .CreateParameter("@BoardID", 3, 2, 4)
	  Else
	     .Parameters.Append .CreateParameter("@BoardID", 3, 1, 4, BoardID)
	  End If
	  .Parameters.Append .CreateParameter("@ChannelID", 3, 1, 4, EL_Channel.ChannelID)
	  .Parameters.Append .CreateParameter("@ParentID", 3, 1, 4, ParentID)
	  .Parameters.Append .CreateParameter("@BoardName", 200, 1, 255, BoardName)
	  .Parameters.Append .CreateParameter("@PictrueURL", 200, 1, 255, PictrueURL)
	  .Parameters.Append .CreateParameter("@Intro", 200, 1, 255, Intro)
	  .Parameters.Append .CreateParameter("@ParentPost", 11, 1, 1, ParentPost)
	  .Parameters.Append .CreateParameter("@EnableCheckCode", 11, 1, 1, EnableCheckCode)
	  .Parameters.Append .CreateParameter("@Disabled", 11, 1, 1, Disabled)
	  .Parameters.Append .CreateParameter("@SkinID", 3, 1, 4, SkinID)
	  .Parameters.Append .CreateParameter("@TemplateID", 3, 1, 4, TemplateID)
	  .Parameters.Append .CreateParameter("@TopicSkinID", 3, 1, 4, TopicSkinID)
	  .Parameters.Append .CreateParameter("@TopicTemplateID", 3, 1, 4, TopicTemplateID)
	  .Parameters.Append .CreateParameter("@ArrManager", 200, 1, 255, ArrManager)
	  .Execute()
   End With 
   Select Case BoardCmd(0)
      Case 40: EL_Common.ShowErrorMsg("频道参数错误") : Set BoardCmd = Nothing : Exit Sub
	  Case 41: EL_Common.ShowErrorMsg("指定不"& EL_Channel.ClassItemName &"存在") : Set BoardCmd = Nothing : Exit Sub
	  Case 42: EL_Common.ShowErrorMsg("不能在同一"& EL_Channel.ClassItemName &"中进行合并操作") : Set BoardCmd = Nothing : Exit Sub
   End Select
   Dim RetMessage
   Call CreateJs()
   Select Case UpdateType
      Case 0:
	     RetMessage = "添加"& EL_Channel.ClassItemName &"成功！<p>"& EL_Channel.ClassItemName &"名称："& EL_Common.ServerHTMLEncode(BoardName) &"</p>"
		 Set BoardCmd = Nothing
	  Case 1:
	     RetMessage = "修改"& EL_Channel.ClassItemName &"成功！<p>"& EL_Channel.ClassItemName &"名称："& EL_Common.ServerHTMLEncode(BoardName) &"</p>"
		 Set BoardCmd = Nothing
	  Case 5:
	     RetMessage = "合并"& EL_Channel.ClassItemName &"成功！"
		 Set BoardCmd = Nothing
	  Case Else:
	     Set BoardCmd = Nothing
		 If ComeURL = "" Then ComeURL = "Admin_ForumBoard.asp"
		 Response.Redirect ComeURL
   End Select   
   EL_Common.ShowSuccessMsg(RetMessage)
   EL_Common.ShowScriptError()
End Sub

Sub UniteData()
On Error Resume Next
%>
<form name="myform" action="Admin_ForumBoard.asp" method="post">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td colspan="2" class="top_25"><strong><%=EL_Channel.ClassItemName%>数据合并</strong></td>
  </tr>
  <tr>
    <td class="td_ItemName">&nbsp;</td>
    <td class="item_25"><span class="redText">本操作一旦合并数据后，不可恢复！请确认无误后再执行操作。不能在同一<%=EL_Channel.ClassItemName%>中合并数据。</span></td>
  </tr>
  <tr>
    <td width="21%" class="td_ItemName"><strong>选择合并的<%=EL_Channel.ClassItemName%></strong></td>
    <td width="79%" class="td_25">
	<select name="BoardID" id="BoardID">
	<%=ShowBoardOptions(EL_Channel.ChannelID, 0, 0, "")%>
    </select>
     ==合并到==&gt; 
     <select name="TargetBoardID" id="TargetBoardID">
	 <%=ShowBoardOptions(EL_Channel.ChannelID, 0, 0, "")%>
    </select></td>
  </tr>
  <tr>
    <td class="td_ItemName">&nbsp;</td>
    <td class="td_50"><input type="submit" name="Submit4" value="执行合并">
      <input name="ChannelID" type="hidden" id="ChannelID" value="<%=EL_Channel.ChannelID%>">
      <input name="Action" type="hidden" id="Action" value="SaveUnite"></td>
  </tr>
</table>
</form>
<%
EL_Common.ShowScriptError()
End Sub

Sub ModifyBoard()
On Error Resume Next
Dim BoardCmd, rsBoard
Dim BoardID
BoardID = EL_Common.ELRequest("BoardID", 2)
Call EL_Common.InitCommonCmd(BoardCmd, rsBoard, "EL_ForumBoard", "*", "ChannelID="& EL_Channel.ChannelID &" AND BoardID="& BoardID)
rsBoard.Close()
If BoardCmd(0) <> 1 Then
   Set rsBoard = Nothing
   Set BoardCmd = Nothing
   EL_Common.ShowErrorMsg("指定"& EL_Channel.ClassItemName &"不存在")
   Exit Sub
End If
rsBoard.Open()
%>
<script language="javascript">
function SearchUser(){
   var arr=showModalDialog('Admin_UserList.asp?s='+ getObject('ArrManager').value.trim(), '', 'dialogWidth:700px; dialogHeight:500px; help: no; scroll: yes; status: no');
   if(arr!=null){
	 if(getObject('ArrManager').value.trim()=="") 
	    getObject('ArrManager').value = arr;
	 else
	    getObject('ArrManager').value = getObject('ArrManager').value.trim()+"|"+arr;
   }
}
function Check(frm){
   if(frm.BoardName.value.trim()==""){
      alert("请输入<%=EL_Channel.ClassItemName%>名称");
	  frm.BoardName.focus();
	  return false;
   }
   SubmitOnce(frm);
   return;
}
</script>
<form name="myform" action="Admin_ForumBoard.asp" method="post" onSubmit="return Check(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td colspan="2" class="top_25"><strong>修改<%=EL_Channel.ClassItemName%></strong></td>
  </tr>
  <tr>
    <td width="21%" class="td_ItemName"><strong>所属父<%=EL_Channel.ClassItemName%></strong></td>
    <td width="79%" class="td_25">
	<select name="ParentID" id="ParentID">
	<option value="0">作为一级<%=EL_Channel.ClassItemName%></option>
	<%=EL_Common.Data2Options("EL_ForumBoard", "BoardID", "BoardName", rsBoard("ParentID"), "ChannelID="& EL_Channel.ChannelID &" And ParentID=0 Order By OrderID")%>
    </select>    </td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong><%=EL_Channel.ClassItemName%>名称</strong></td>
    <td class="td_25"><input name="BoardName" type="text" id="BoardName" value="<%=EL_Common.ServerHTMLEncode(rsBoard("BoardName"))%>" size="40"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong><%=EL_Channel.ClassItemName%>图片地址</strong></td>
    <td class="td_25"><input name="PictrueURL" type="text" id="PictrueURL" value="<%=EL_Common.ServerHTMLEncode(rsBoard("PictrueURL"))%>" size="40"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong><%=EL_Channel.ClassItemName%>说明</strong><br>支持HTML描述</td>
    <td class="td_25"><textarea name="Intro" cols="60" rows="3" id="Intro"><%=EL_Common.ServerHTMLEncode(rsBoard("Intro"))%></textarea></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>做为父<%=EL_Channel.ClassItemName%>是否可以发帖</strong></td>
    <td class="td_25"><input name="ParentPost" type="radio" class="nomargin" value="<%=EL_True%>" <%=EL_Common.SetObjectChecked("True", rsBoard("ParentPost"))%>>
      是
        <input name="ParentPost" type="radio" class="nomargin" value="<%=EL_False%>" <%=EL_Common.SetObjectChecked("False", rsBoard("ParentPost"))%>>
      否</td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>发帖是否采用验证码</strong></td>
    <td class="td_25"><input name="EnableCheckCode" type="radio" class="nomargin" value="<%=EL_True%>" <%=EL_Common.SetObjectChecked("True", rsBoard("EnableCheckCode"))%>>
是
  <input name="EnableCheckCode" type="radio" class="nomargin" value="<%=EL_False%>" <%=EL_Common.SetObjectChecked("False", rsBoard("EnableCheckCode"))%>>
否</td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>是否禁用</strong></td>
    <td class="td_25"><input name="Disabled" type="radio" class="nomargin" value="<%=EL_True%>" <%=EL_Common.SetObjectChecked("True", rsBoard("Disabled"))%>>
是
  <input name="Disabled" type="radio" class="nomargin" value="<%=EL_False%>" <%=EL_Common.SetObjectChecked("False", rsBoard("Disabled"))%>>
否</td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong><%=EL_Channel.ClassItemName%>默认风格</strong></td>
    <td class="td_25"><select name="SkinID" id="SkinID">
      <option value="0">使用系统默认</option>
      <%=EL_Common.SkinList(rsBoard("SkinID"))%>
    </select></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong><%=EL_Channel.ClassItemName%>默认模板</strong></td>
    <td class="td_25"><select name="TemplateID" id="TemplateID">
      <option value="0">使用系统默认</option>
      <%=EL_Common.TemplateList(EL_Channel.ChannelID, 23, rsBoard("TemplateID"))%>
    </select></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong><%=EL_Channel.ItemName%>内容页默认风格</strong></td>
    <td class="td_25"><select name="TopicSkinID" id="TopicSkinID">
        <option value="0">使用系统默认</option>
        <%=EL_Common.SkinList(rsBoard("TopicSkinID"))%>
    </select></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong><%=EL_Channel.ItemName%>内容页默认模板</strong></td>
    <td class="td_25"><select name="TopicTemplateID" id="TopicTemplateID">
        <option value="0">使用系统默认</option>
        <%=EL_Common.TemplateList(EL_Channel.ChannelID, 24, rsBoard("TopicTemplateID"))%>
    </select></td>
  </tr>
  
  <tr>
    <td class="td_ItemName"><strong>版主设置</strong><br>填写用户名，多个版主用“|”分隔</td>
    <td class="td_25"><input name="ArrManager" type="text" id="ArrManager" value="<%=EL_Common.ServerHTMLEncode(rsBoard("ArrManager"))%>" size="60">
      <input type="button" name="Submit2" value="查找" onClick="SearchUser()"></td>
  </tr>
  <tr>
    <td class="td_ItemName">&nbsp;</td>
    <td class="td_50"><input type="submit" name="Submit" value="保存修改">
      <input type="button" name="Submit3" value="返回上页" onClick="history.back()">
      <input name="Action" type="hidden" id="Action" value="SaveModify">
12 下一页
💿 文件大小 4678 K
👤 上传用户 libin2722
📂 所属分类企业管理
🏷️ 相关标签

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

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