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

📄 admin_car.asp

📁 依蓝旅游网站管理系统Elan2008.SP2
💻 ASP
📖 第 1 页 / 共 5 页
字号:
  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=BatchPassed";
  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=BatchCancelPassed";
  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="4%" align="center" nowrap class="top_item"><strong>选择</strong></td>
    <td width="4%" align="center" nowrap class="top_item"><strong>ID</strong></td>
    <td width="20%" align="center" nowrap class="top_item"><strong>车型</strong></td>
    <td width="10%" align="center" nowrap class="top_item"><strong>时租</strong></td>
    <td width="8%" align="center" nowrap class="top_item"><strong>日租</strong></td>
    <td width="10%" align="center" nowrap class="top_item"><strong>月租</strong></td>
    <td width="9%" align="center" nowrap class="top_item"><strong>录入</strong></td>
    <td width="8%" align="center" nowrap class="top_item"><strong>属性</strong></td>
    <td width="4%" align="center" nowrap class="top_item"><strong>发布</strong></td>
    <td width="23%" align="center" nowrap class="top_item"><strong>相关操作</strong></td>
  </tr>
  <%
    If RowCount = 0 Then
	  Response.Write "<tr><td colspan=10 class=""td_50"" align=""center"">没有任何"& EL_Channel.ItemName &"数据</td></tr>"
	Else
	  Dim i
	  rsCar.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="<%=rsCar("CarID")%>"></td>
    <td align="center"><%=rsCar("CarID")%></td>
    <td style="padding-left:3px;">
	<%="[<a href="& EL_CurrentScriptName &"?"& ClassURL &"&ClassID="& rsCar("ClassID") &">"& rsCar("ClassName") &"</a>]"%>
	<a href="<%=EL_CurrentScriptName%>?ChannelID=<%=EL_Channel.ChannelID%>&Action=Show&CarID=<%=rsCar("CarID")%>" title="<%=EL_Channel.ItemName%>车型:<%=rsCar("CarName")%>&#13;更新日期:<%=rsCar("UpdateTime")%>&#13;预订统计:<%=rsCar("BookCount")%> 次&#13;点&nbsp;击&nbsp;数:<%=rsCar("Hits")%> 次"><%=EL_Common.HTMLEncode(rsCar("CarName"))%></a>	</td>
    <td align="center"><%="<span class=yellowtext>"& rsCar("PriceHour1") &"</span>/<span class=bluetext>"& rsCar("PriceHour2") &"</span>"%></td>
    <td align="center"><%="<span class=yellowtext>"& rsCar("PriceDay1") &"</span>/<span class=bluetext>"& rsCar("PriceDay2") &"</span>"%></td>
    <td align="center"><%="<span class=yellowtext>"& rsCar("PriceMonth1") &"</span>/<span class=bluetext>"& rsCar("PriceMonth2") &"</span>"%></td>
    <td align="center"><%=EL_Common.HTMLEncode(rsCar("Inputer"))%></td>
    <td align="center">
	<%
	  Response.Write EL_Common.ShowBoolean(rsCar("OnTop").value, "<span class=bluetext title='固顶"& EL_Channel.ItemName &"'>顶</span>", "<span class=graytext>顶</span>") &"&nbsp;&nbsp;"
	  Response.Write EL_Common.ShowBoolean(rsCar("Commended").value, "<span class=greentext title='推荐"& EL_Channel.ItemName &"'>荐</span>", "<span class=graytext>荐</span>")
	%>	</td>
    <td align="center"><%=EL_Common.ShowBoolean(rsCar("Passed").value, "<strong>√</strong>", "<span class=redtext><strong>×</strong></span>")%></td>
    <td align="center">
	<%
	  If EL_Admin.Purview = 1 Or EL_Admin.Purview = 2 Or EL_Admin.CheckAdminPurview(rsCar("ClassID"), 2)=True Or rsCar("Inputer")=EL_Admin.AdminName Then
	    Select Case ManageType
		  Case "", "Myself":
	         Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=Modify&CarID="& rsCar("CarID") &"'>修改</a> | "
		     Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=Delete&CarID="& rsCar("CarID") &"' onClick=""return confirm('本次操作将该"& EL_Channel.ItemUnit & EL_Channel.ItemName &"删除至回收站,以后可以从回收站中恢复\n确认要执行删除吗?')"">删除</a> | "
		     If rsCar("OnTop") = True Then
		        Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=SetOnTop&CarID="& rsCar("CarID") &"'>解固</a> | "
		     Else
		        Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=SetOnTop&CarID="& rsCar("CarID") &"'>固顶</a> | "
		     End If
		     If rsCar("Commended") = True Then
		        Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=SetCommended&CarID="& rsCar("CarID") &"'>取消推荐</a>"
		     Else
		        Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=SetCommended&CarID="& rsCar("CarID") &"'>设为推荐</a>"
		     End If
		  Case "Check":
		     Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=Modify&CarID="& rsCar("CarID") &"'>修改</a> | "
			 Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=Delete&CarID="& rsCar("CarID") &"' onClick=""return confirm('本次操作将该"& EL_Channel.ItemUnit & EL_Channel.ItemName &"删除至回收站,以后可以从回收站中恢复\n确认要执行删除吗?')"">删除</a> | "
			 If rsCar("Passed") = True Then
		        Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=SetPassed&CarID="& rsCar("CarID") &"'>取消发布</a>"
		     Else
			    Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=SetPassed&CarID="& rsCar("CarID") &"'>立即发布</a>"
			 End If
		  Case "Recycled":
		     Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=DeleteTrue&CarID="& rsCar("CarID") &"' onClick=""return confirm('本次操作将彻底删除该"& EL_Channel.ItemUnit & EL_Channel.ItemName &",并不能恢复\n确认要执行彻底删除吗?')"">彻底删除</a> | "
			 Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=Restore&CarID="& rsCar("CarID") &"'>还原</a>"
		End Select
	  Else
	    Select Case ManageType
		  Case "":
	         Response.Write "<span class=graytext>修改</span> | "
		     Response.Write "<span class=graytext>删除</span> | "
		     If rsCar("OnTop") = True Then
		        Response.Write "<span class=graytext>解固</span> | "
		     Else
		        Response.Write "<span class=graytext>固顶</span> | "
		     End If
		     If rsCar("Commended") = True Then
		        Response.Write "<span class=graytext>取消推荐</span>"
		     Else
		        Response.Write "<span class=graytext>设为推荐</span>"
		     End If
	      Case "Check":
		     Response.Write "<span class=graytext>修改</span> | "
		     Response.Write "<span class=graytext>删除</span> | "
			 If rsCar("Passed") = True Then
		        Response.Write "<span class=graytext>取消发布</span>"
		     Else
			    Response.Write "<span class=graytext>立即发布</span>"
			 End If
		  Case "Recycled":
		     Response.Write "<span class=graytext>彻底删除</span> | "
			 Response.Write "<span class=graytext>还原</span>"
		End Select
	  End If
	%>	</td>
  </tr>
  <%
           If i<RowCount Then rsCar.MoveNext
		Next
		rsCar.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="40" align="center" class="td_topline">
	 <%
	   If (EL_Admin.Purview = 1 Or EL_Admin.Purview = 2 Or EL_Admin.CheckAdminPurview(ClassID, 2)) And RowCount>0 Then
	      Select Case ManageType
		    Case "", "Myself":
			   Response.Write "<input type=""button"" name=""Submit4"" value=""删除选定"& EL_Channel.ItemName &""" onClick=""doDelete()""> "
			   Response.Write "<input type=""button"" name=""Submit4"" value=""设置选定"& EL_Channel.ItemName &""" onClick=""doBatchSetup()""> "

			   Response.Write "<input type=""button"" name=""Submit4"" value=""移动选定"& EL_Channel.ItemName &"至&gt;&gt;"" onClick=""doMove()"">"
			   Response.Write "<select name=""TargetClassID"" id=""TargetClassID"">"
			   Response.Write "<option value='0'>选择目标"& EL_Channel.ClassItemName &"</option>"
			   Response.Write EL_Common.ShowClassTree(EL_Channel.ChannelID, 0, 0, "")
			   Response.Write "</select> "
			Case "Check":
			   Response.Write "<input type=""button"" name=""Submit4"" value=""删除选定"& EL_Channel.ItemName &""" onClick=""doDelete()""> "
			   Response.Write "<input type=""button"" name=""Submit4"" value=""发布选定"& EL_Channel.ItemName &"""

⌨️ 快捷键说明

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