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

📄 admin_shop.asp

📁 依蓝旅游网站管理系统Elan2008.SP2
💻 ASP
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
StrCondition = "EL_Shop.ChannelID="& EL_Channel.ChannelID &" AND EL_Shop.ClassID=EL_Class.ClassID AND EL_Shop.ChannelID=EL_Class.ChannelID "
If ClassID <> 0 Then
   Dim AllChildID
   AllChildID = EL_Common.GetAllChildID(ClassID)
   If AllChildID = "" Then
      StrCondition = StrCondition &"And EL_Shop.ClassID In("& ClassID &") "
   Else
      StrCondition = StrCondition &"And EL_Shop.ClassID In("& ClassID &","& AllChildID &") "
   End If   
End If

If Passed <> "" Then
   StrCondition = StrCondition &"And EL_Shop.Passed="& Passed &" "
   If Passed = EL_True Then
      TempString = EL_Common.Join2String(TempString, "已发布", "、")
   Else
      TempString = EL_Common.Join2String(TempString, "<span class=redtext>未发布</span>", "、")
   End If
End If

If OnTop = EL_True Then 
   StrCondition = StrCondition &"And EL_Shop.OnTop="& EL_True &" "
   TempString = EL_Common.Join2String(TempString, "固顶", "、")
End If
If Commended = EL_True Then 
   StrCondition = StrCondition &"And EL_Shop.Commended="& EL_True &" "
   TempString = EL_Common.Join2String(TempString, "推荐", "、")
End If

If ManageType = "Recycled" Then 
   StrCondition = StrCondition &"And EL_Shop.Deleted="& EL_True &" "
Else
   StrCondition = StrCondition &"And EL_Shop.Deleted="& EL_False &" "
End If

If ManageType = "Myself" Then
   StrCondition = StrCondition &"And EL_Shop.Inputer='"& EL_Admin.AdminName &"' "
End If 

If Search_Keywords<>"" And Search_Field<>"" Then 
   StrCondition = StrCondition &"And EL_Shop."& Search_Field &" Like '%"& Search_Keywords &"%' "
End If

Call EL_Common.InitCommand(ManageCmd, "EL_SP_SplitPage")
With ManageCmd
  .Parameters.Append .CreateParameter("RETURN", 3, 4, 4)
  .Parameters.Append .CreateParameter("@Tables", 200, 1, 20, "EL_Shop,EL_Class")
  .Parameters.Append .CreateParameter("@PrimaryKey", 200, 1, 20, "EL_Shop.ProductID")
  .Parameters.Append .CreateParameter("@Sort", 200, 1, 30, "EL_Shop.ProductID DESC")
  .Parameters.Append .CreateParameter("@CurrentPage", 3, 1, 4, CurrentPage)
  .Parameters.Append .CreateParameter("@PageSize", 3, 1, 4, PageSizes)
  .Parameters.Append .CreateParameter("@Fields", 200, 1, 1000, StrFields)
  .Parameters.Append .CreateParameter("@Filter", 200, 1, 1000, StrCondition)
  .Parameters.Append .CreateParameter("@Group", 200, 1, 1, "")
  .Parameters.Append .CreateParameter("@TotalRowCount", 3, 2, 4)
  .Parameters.Append .CreateParameter("@PageCount", 3, 2, 4)
  Set rsManage = .Execute()
End With
rsManage.Close()
RowCount = ManageCmd(0)
TotalRowCount = ManageCmd(9)
PageCounts = ManageCmd(10)

If Search_Keywords<>"" And Search_Field<>"" Then
  CurrentPath = CurrentPath &">> "& EL_Channel.ItemName &"搜索 >> "
  Select Case LCase(Search_Field)
     Case "productname":  CurrentPath = CurrentPath & EL_Channel.ItemName & "名称："
	 Case "content":  CurrentPath = CurrentPath & EL_Channel.ItemName & "内容："
	 Case "inputer":  CurrentPath = CurrentPath & EL_Channel.ItemName & "录入者："
  End Select
  CurrentPath = CurrentPath &"<span class=redtext>"& Search_Keywords &"</span>"
Else  
  Select Case ManageType
     Case "": 
	     CurrentPath = CurrentPath & EL_Common.GetParentPath(ClassURL, ClassID) &">> 所有<span class=bluetext>"& TempString &"</span>"& EL_Channel.ItemName
	 Case "Myself":
	     CurrentPath = CurrentPath & EL_Common.GetParentPath(ClassURL, ClassID) &">> <span class=redtext>"& EL_Admin.AdminName &" 添加的<span class=bluetext>"& TempString &"</span>"& EL_Channel.ItemName &"</span>"
	 Case "Check":
	     CurrentPath = CurrentPath & ">> "& EL_Channel.ItemName &"发布管理 "
		 CurrentPath = CurrentPath & EL_Common.GetParentPath(ClassURL, ClassID) &">> 所有<span class=bluetext>"& TempString &"</span>"& EL_Channel.ItemName	     
	 Case "Recycled":
	     CurrentPath = CurrentPath & ">> "& EL_Channel.ItemName &"回收站管理 "
	     CurrentPath = CurrentPath & EL_Common.GetParentPath(ClassURL, ClassID) &">> 所有<span class=redtext>已删除的"& TempString &"</span>"& EL_Channel.ItemName
  End Select
End If

%>
<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 doDelete(){
  var frm = getObject("myform");
  if(!CheckObject()){
     alert("请至少选定1<%=EL_Channel.ItemUnit & EL_Channel.ItemName%>");
	 return false;
  }
  frm.action = JURL + "&Action=Delete";
  if(confirm("本次操作将选定<%=EL_Channel.ItemName%>删除至回收站，以后可以从回收站中恢复\n确认要执行选定删除吗？")){
     frm.submit();
	 return;
  }
  return false;
}
function doMove(){
  var frm = getObject("myform");
  if(!CheckObject()){
     alert("请至少选定1<%=EL_Channel.ItemUnit & EL_Channel.ItemName%>");
	 return false;
  }
  if(getObject("TargetClassID").value == 0 || getObject("TargetClassID").selectedIndex == -1){
     alert("请选择目标<%=EL_Channel.ClassItemName%>");
	 getObject("TargetClassID").focus();
	 return false;
  }
  frm.action = JURL + "&Action=Move";
  if(confirm("确认要将选定的<%=EL_Channel.ItemName%>移动至 ["+ getObject("TargetClassID").options[getObject("TargetClassID").selectedIndex].text.replace(/[└├]+/, "").trim() +" ]？")){
     frm.submit();
	 return;
  }
  return false;
}
function doPassed(){
  var frm = getObject("myform");
  if(!CheckObject()){
     alert("请至少选定1<%=EL_Channel.ItemUnit & EL_Channel.ItemName%>");
	 return false;
  }
  frm.action = JURL + "&Action=SetPassed&SetValue=<%=EL_True%>";
  if(confirm("确认要发布选定的<%=EL_Channel.ItemName%>吗？")){
     frm.submit();
	 return;
  }
  return false;
}
function doCancelPassed(){
  var frm = getObject("myform");
  if(!CheckObject()){
     alert("请至少选定1<%=EL_Channel.ItemUnit & EL_Channel.ItemName%>");
	 return false;
  }
  frm.action = JURL + "&Action=SetPassed&SetValue=<%=EL_False%>";
  if(confirm("确认要取消发布选定的<%=EL_Channel.ItemName%>吗？")){
     frm.submit();
	 return;
  }
  return false;
}
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;
}
function doBatchSetup(){
  var frm = getObject("myform");
  if(!CheckObject()){
     alert("请至少选定1<%=EL_Channel.ItemUnit & EL_Channel.ItemName%>");
	 return false;
  }
  frm.action = JURL + "&Action=Batch";
  frm.submit();
  return;
}
</script>
<%=EL_Common.ShowClassList(ClassURL, 0, ClassID)%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="88%"><%=CurrentPath%></td>
    <td width="12%" align="right">
      <select name="select" id="select" onChange="location.href='<%=EL_CurrentScriptName &"?"& ClassURL%>&ClassID='+this.value">
	  <option><%=EL_Channel.ClassItemName%>跳转至……</option>
        <%=EL_Common.ShowClassTree(EL_Channel.ChannelID, 0, 0, "")%>
    </select>    </td>
  </tr>
</table>
<form name="myform" action="" 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="5%" align="center" class="top_item"><strong>ID</strong></td>
	<td width="47%"  align="center" class="top_item"><strong><%=EL_Channel.ItemName%>名称</strong></td>
    <td width="5%"  align="center" nowrap class="top_item"><strong>积分</strong></td>
    <td width="5%"  align="center" nowrap class="top_item"><strong>库存</strong></td>
    <td width="8%" align="center" nowrap class="top_item"><strong>录入者</strong></td>
    <td width="7%" align="center" nowrap class="top_item"><strong>属性</strong></td>
    <td width="5%" align="center" nowrap class="top_item"><strong>发布</strong></td>
    <td width="15%" align="center" class="top_item"><strong>相关操作</strong></td>
  </tr>
  <%
    If RowCount = 0 Then
	   Response.Write "<tr><td colspan=9 class=""td_50"" align=""center"">没有任何"& EL_Channel.ItemName &"数据</td></tr>"
	Else
	  Dim i
	  rsManage.Open()
	  For i = 1 To RowCount
  %>
  <tr class="td_25" onMouseOut="this.className='td_25'" onMouseOver="this.className='MouseOver_25'">
12345

⌨️ 快捷键说明

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