⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_class.asp

📁 依蓝旅游网站管理系统Elan2008.SP2
💻 ASP
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
	ArrOpenType(1) = "_blank"
	
	If pNum = 1 Then
	   JString = JString & stm_bp_v("p" & pNum & "") & VBCRLF
	Else
	   JString = JString & stm_bpx("p" & pNum & "", "p" & pNum2 & "", ShowType) & VBCRLF
	End If
	
	Call EL_Common.InitCommonCmd(ChildCmd, rsChild, "EL_Class", "ClassID,ClassName,OpenType,ArrChildID,Depth", "ChannelID="& EL_Channel.ChannelID &" AND ShowName="& EL_True &" And ParentID="& ParentID &" Order By OrderID")
	rsChild.Close()
	ChildCount = ChildCmd(0)
	rsChild.Open()
	For i = 1 To ChildCount	   
	   If rsChild("ArrChildID") <> "" And Not IsNULL(rsChild("ArrChildID")) Then
	      JString = JString & stm_aix("p" & pNum & "i" & (i-1) & "", "p" & pNum2 & "i0", Replace(rsChild("ClassName"), "'", "\'"), InstallDir & EL_Channel.ChannelDir & "/ShowClass.asp?ClassID=" & rsChild("ClassID"), ArrOpenType(rsChild("OpenType")), "", True) & VBCRLF
	      pNum = pNum + 1
		  pNum2 = pNum2 + 1
		  JString = JString & GetChildClass(rsChild("ClassID"), 1)
	   Else
	      JString = JString & stm_aix("p" & pNum & "i" & (i-1) & "", "p" & pNum2 & "i0", rsChild("ClassName"), InstallDir & EL_Channel.ChannelDir & "/ShowClass.asp?ClassID=" & rsChild("ClassID"), ArrOpenType(rsChild("OpenType")), "", False) & VBCRLF
	   End If
	   If i<ChildCount Then rsChild.MoveNext
	Next
	rsChild.Close()
	Set rsChild = Nothing
	Set ChildCmd = Nothing
	JString = JString & "stm_ep();" & VBCRLF
	
	GetChildClass = JString
	EL_Common.ShowScriptError()
End Function

Sub SaveBatchSetup()
   On Error Resume Next
   Dim BatchCmd, StrSQL
   Dim ArrClassID, SetItems, ShowName, OpenType, ShowOnIndex, ShowOnParent, SkinID, TemplateID
   
   ArrClassID = EL_Common.ELRequest("ArrClassID", 1)
   SetItems = EL_Common.ELRequest("SetItems", 1)
   ShowName = EL_Common.ELRequest("ShowName", 2)
   OpenType = EL_Common.ELRequest("OpenType", 2)
   ShowOnIndex = EL_Common.ELRequest("ShowOnIndex", 2)
   ShowOnParent = EL_Common.ELRequest("ShowOnParent", 2)
   SkinID = EL_Common.ELRequest("SkinID", 2)
   TemplateID = EL_Common.ELRequest("TemplateID", 2)
   
   Call EL_Common.InitCommand(BatchCmd, "EL_SP_ClassBatchSetup")
   With BatchCmd
      .Parameters.Append .CreateParameter("RETURN", 2, 4)
	  .Parameters.Append .CreateParameter("@ArrClassID", 200, 1, 4000, ArrClassID)
	  .Parameters.Append .CreateParameter("@SetItems", 200, 1, 50, SetItems)
	  .Parameters.Append .CreateParameter("@ShowName", 11, 1, 1, ShowName)
	  .Parameters.Append .CreateParameter("@OpenType", 3, 1, 4, OpenType)
	  .Parameters.Append .CreateParameter("@ShowOnIndex", 11, 1, 1, ShowOnIndex)
	  .Parameters.Append .CreateParameter("@ShowOnParent", 11, 1, 1, ShowOnParent)
	  .Parameters.Append .CreateParameter("@SkinID", 3, 1, 4, SkinID)
	  .Parameters.Append .CreateParameter("@TemplateID", 3, 1, 4, TemplateID)
	  .Execute()
   End With
   Select Case BatchCmd(0)
      Case 40: EL_Common.ShowErrorMsg("未指定"& EL_Channel.ClassItemName) : Set BatchCmd = Nothing : Exit Sub
	  Case 41: EL_Common.ShowErrorMsg("未指定设置项目") : Set BatchCmd = Nothing : Exit Sub
   End Select
   Set BatchCmd = Nothing
   Call CreateClassMenuJs()
   Call CreateSearchFormJs()
   EL_Common.ShowSuccessMsg(EL_Channel.ClassItemName &"批量设置成功")
   EL_Common.ShowScriptError()
End Sub

Sub SetClassAttrib(SetType)
  On Error Resume Next
  Dim AttribCmd
  Dim ClassID, ParentID, ReturnClassName
  
  ClassID = EL_Common.ELRequest("ClassID", 2)
  ParentID = EL_Common.ELRequest("ParentID", 2)
  
  Call EL_Common.InitCommand(AttribCmd, "EL_SP_ClassAttributes")
  With AttribCmd
    .Parameters.Append .CreateParameter("RETURN", 3, 4, 4)
	.Parameters.Append .CreateParameter("@SetType", 3, 1, 4, SetType)
	.Parameters.Append .CreateParameter("@ClassID", 3, 1, 4, ClassID)
	.Parameters.Append .CreateParameter("@ChannelID", 3, 1, 4, EL_Channel.ChannelID)
	.Parameters.Append .CreateParameter("@ParentID", 3, 1, 4, ParentID)	
	.Parameters.Append .CreateParameter("@ClassName", 200, 2, 50)	
	.Execute()
  End With
  
  Select Case AttribCmd(0)
     Case 0:
	 Case 40: EL_Common.ShowErrorMsg("页面参数错误") : Set AttribCmd = Nothing : Exit Sub
	 Case 41: EL_Common.ShowErrorMsg(EL_Channel.ClassItemName &"ID错误") : Set AttribCmd = Nothing : Exit Sub
	 Case 42: EL_Common.ShowErrorMsg("指定"& EL_Channel.ClassItemName &"不存在") : Set AttribCmd = Nothing : Exit Sub
	 Case 43: EL_Common.ShowErrorMsg("频道ID错误") : Set AttribCmd = Nothing : Exit Sub
	 Case 44: EL_Common.ShowErrorMsg("指定频道不存在或该频道已被禁用") : Set AttribCmd = Nothing : Exit Sub
	 Case 45: EL_Common.ShowErrorMsg("不能以本身作为父"& EL_Channel.ClassItemName &"") : Set AttribCmd = Nothing : Exit Sub
	 Case 46: EL_Common.ShowErrorMsg("不能以当前"& EL_Channel.ClassItemName &"的子"& EL_Channel.ClassItemName &"作为父"& EL_Channel.ClassItemName ) : Set AttribCmd = Nothing : Exit Sub
	 Case 47: EL_Common.ShowErrorMsg("不能原来的父"& EL_Channel.ClassItemName &"中移动") : Set AttribCmd = Nothing : Exit Sub
	 Case 48: EL_Common.ShowErrorMsg("没有指定目标"& EL_Channel.ClassItemName) : Set AttribCmd = Nothing : Exit Sub
	 Case 49: EL_Common.ShowErrorMsg("目标"& EL_Channel.ClassItemName &"不存在") : Set AttribCmd = Nothing : Exit Sub
  End Select
  ReturnClassName = AttribCmd(5)
  Set AttribCmd = Nothing
  If SetType = 0 Then
     EL_Common.ShowSuccessMsg("<span class=bluetext><strong>"& ReturnClassName &"</strong></span> "& EL_Channel.ClassItemName &"中的数据已经被清空")
	 'Response.Redirect ComeURL
  ElseIf SetType = 1 Then
	 Call CreateClassMenuJs()
	 Call CreateSearchFormJs()
	 Response.Redirect "Admin_Class.asp?ChannelID="& EL_Channel.ChannelID
  ElseIf SetType = 2 Then
	 Call CreateClassMenuJs()
	 Call CreateSearchFormJs()
	 Response.Redirect ComeURL
  ElseIf SetType = 3 Then
	 Call CreateClassMenuJs()
	 Call CreateSearchFormJs()
     Response.Redirect ComeURL
  Else
     EL_Common.ShowErrorMsg("页面参数错误")
  End If
  EL_Common.ShowScriptError()
End Sub

Sub UpdateClass(UpdateType)
  On Error Resume Next
  Dim SaveClassCmd
  Dim ClassID, ClassName, ShowName, OpenType, ParentID, ShowOnIndex
  Dim ShowOnParent, SkinID, TemplateID, ParentClassName
  
  ClassID = EL_Common.ELRequest("ClassID", 2)
  ClassName = EL_Common.ELRequest("ClassName", 1)
  ShowName = EL_Common.ELRequest("ShowName", 2)
  OpenType = EL_Common.ELRequest("OpenType", 2)
  ParentID = EL_Common.ELRequest("ParentID", 2)
  ShowOnIndex = EL_Common.ELRequest("ShowOnIndex", 2)
  ShowOnParent = EL_Common.ELRequest("ShowOnParent", 2)
  SkinID = EL_Common.ELRequest("SkinID", 2)
  TemplateID = EL_Common.ELRequest("TemplateID", 2)
  
  Call EL_Common.InitCommand(SaveClassCmd, "EL_SP_Class")
  With SaveClassCmd
     .Parameters.Append .CreateParameter("RETURN", 3, 4, 4)
	 .Parameters.Append .CreateParameter("@UpdateType", 3, 1, 4, UpdateType)
	 .Parameters.Append .CreateParameter("@ChannelID", 3, 1, 4, EL_Channel.ChannelID)
	 .Parameters.Append .CreateParameter("@ClassID", 3, 1, 4, ClassID)
	 .Parameters.Append .CreateParameter("@ClassName", 200, 1, 50, ClassName)
	 .Parameters.Append .CreateParameter("@ShowName", 3, 1, 4, ShowName)
	 .Parameters.Append .CreateParameter("@OpenType", 3, 1, 4, OpenType)
	 .Parameters.Append .CreateParameter("@ParentID", 3, 1, 4, ParentID)
	 .Parameters.Append .CreateParameter("@ShowOnIndex", 3, 1, 4, ShowOnIndex)
	 .Parameters.Append .CreateParameter("@ShowOnParent", 3, 1, 4, ShowOnParent)
	 .Parameters.Append .CreateParameter("@SkinID", 3, 1, 4, SkinID)
	 .Parameters.Append .CreateParameter("@TemplateID", 3, 1, 4, TemplateID)
	 .Parameters.Append .CreateParameter("@ParentClassName", 200, 2, 50)
	 .Execute()
  End With
  Select Case SaveClassCmd(0)
	 Case 40: EL_Common.ShowErrorMsg("页面参数错误") : Set SaveClassCmd = Nothing : Exit Sub
	 Case 41: EL_Common.ShowErrorMsg(EL_Channel.ClassItemName &"ID错误") : Set SaveClassCmd = Nothing : Exit Sub
	 Case 42: EL_Common.ShowErrorMsg("指定"& EL_Channel.ClassItemName &"不存在") : Set SaveClassCmd = Nothing : Exit Sub
	 Case 43: EL_Common.ShowErrorMsg("频道ID错误") : Set SaveClassCmd = Nothing : Exit Sub
	 Case 44: EL_Common.ShowErrorMsg("指定频道不存在或该频道已被禁用") : Set SaveClassCmd = Nothing : Exit Sub
	 Case 45: EL_Common.ShowErrorMsg("不能以本身作为父"& EL_Channel.ClassItemName) : Set SaveClassCmd = Nothing : Exit Sub
	 Case 46: EL_Common.ShowErrorMsg("不能以当前"& EL_Channel.ClassItemName &"的子"& EL_Channel.ClassItemName &"作为父"& EL_Channel.ClassItemName) : Set SaveClassCmd = Nothing : Exit Sub
	 Case 47: EL_Common.ShowErrorMsg("不能原来的父"& EL_Channel.ClassItemName &"中移动") : Set SaveClassCmd = Nothing : Exit Sub
  End Select
  ParentClassName = SaveClassCmd(12)
  If ParentClassName = "" OR IsNULL(ParentClassName) Then ParentClassName = "作为一级"& EL_Channel.ClassItemName
  Set SaveClassCmd = Nothing
  If UpdateType = 0 Then
	 Call CreateClassMenuJs()
	 Call CreateSearchFormJs()
	 EL_Common.ShowSuccessMsg("成功添加新"& EL_Channel.ClassItemName &"：<span class=bluetext>"& ClassName &"</span><br>所属父"& EL_Channel.ClassItemName &"："& ParentClassName)
  ElseIf UpdateType = 1 Then
	 Call CreateClassMenuJs()
	 Call CreateSearchFormJs()
     EL_Common.ShowSuccessMsg("修改"& EL_Channel.ClassItemName &"成功：<span class=bluetext>"& ClassName &"</span><br>所属父"& EL_Channel.ClassItemName &"："& ParentClassName)
  ElseIf UpdateType = 2 Then
     'EL_Common.ShowSuccessMsg("删除分类成功"& ParentClassName)
	 Call CreateClassMenuJs()
	 Call CreateSearchFormJs()
	 EL_Common.ShowScriptError()
	 Response.Redirect ComeURL  
  Else        
     EL_Common.ShowErrorMsg("页面参数错误")
  End If   
  EL_Common.ShowScriptError()
End Sub

Sub BatchSetup()
%>
<script language="javascript">
function Check(frm){
  var obj = frm.SetItems;
  var l=obj.length;
  var isChecked = false;
  if(frm.ArrClassID.selectedIndex == -1){
     alert("请至少选择一个<%=EL_Channel.ClassItemName%>");
	 frm.ArrClassID.focus();
	 return false;
  }
  for(var i=0;i<l;i++){
     if(obj[i].checked){
	    isChecked = true;
		break;
	 }
  }
  if(!isChecked){
     alert("请至少选择一个项目");
	 obj[0].focus();
	 return false;
  }
  SubmitOnce(frm)
  return true;
}
</script>
<form name="myform" action="Admin_Class.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="29%" align="center" valign="top" class="td_25">
      <select name="ArrClassID" size="20" multiple id="ArrClassID" style="width:200px; height:200px;">
        <%=EL_Common.ShowClassTree(EL_Channel.ChannelID, 0, 0, "")%>
      </select>    </td>
    <td width="71%" valign="top"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="1">
      <tr>
        <td width="8%" align="center" class="td_ItemName"><input name="SetItems" type="checkbox" id="SetItems" value="0"></td>
        <td width="25%" nowrap class="td_ItemName"><STRONG>是否显示栏目名称</STRONG></td>
        <td class="td_25"><input name="ShowName" type="radio" class="nomargin" value="<%=EL_True%>" checked>
          是
          <input name="ShowName" type="radio" class="nomargin" value="<%=EL_False%>">
          否</td>
      </tr>
      <tr>
        <td align="center" class="td_ItemName"><input name="SetItems" type="checkbox" id="SetItems" value="1"></td>
        <td class="td_ItemName"><STRONG>打开方式</STRONG></td>
        <td class="td_25"><input name="OpenType" type="radio" class="nomargin" value="0" checked>
          原窗口
          <input name="OpenType" type="radio" class="nomargin" value="1">
          新窗口</td>
      </tr>
      <tr>
        <td align="center" class="td_ItemName"><input name="SetItems" type="checkbox" id="SetItems" value="2"></td>
        <td class="td_ItemName"><STRONG>是否在频道首页显示</STRONG><BR></td>
        <td class="td_25"><input name="ShowOnIndex" type="radio" class="nomargin" value="<%=EL_True%>" checked>
          是
          <input name="ShowOnIndex" type="radio" class="nomargin" value="<%=EL_False%>">
          否</td>
      </tr>
      <tr>
        <td align="center" class="td_ItemName"><input name="SetItems" type="checkbox" id="SetItems" value="3"></td>
        <td nowrap class="td_ItemName"><STRONG>是否在父栏目列表处显示</STRONG></td>
        <td class="td_25"><input name="ShowOnParent" type="radio" class="nomargin" value="<%=EL_True%>" checked>
1234

⌨️ 快捷键说明

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