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

📄 admin_car.asp

📁 依蓝旅游网站管理系统Elan2008.SP2
💻 ASP
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
<%
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, 8)

Dim ManageType, Passed, OnTop, Commended
Dim ClassID, CurrentPath, Search_Keywords, Search_Field, ClassURL
ManageType = EL_Common.ELRequest("ManageType", 1)
ClassID = EL_Common.ELRequest("ClassID", 2)
Passed = EL_Common.ELRequest("Passed", 1)
OnTop = EL_Common.ELRequest("OnTop", 1)
Commended = EL_Common.ELRequest("Commended", 1)
Search_Keywords = EL_Common.ReplaceBadChar(EL_Common.ELRequest("Search_Keywords", 1))
Search_Field = EL_Common.ReplaceBadChar(EL_Common.ELRequest("Search_Field", 1))

If ClassID = "" Then
   ClassURL = URLParameters
Else
   ClassURL = EL_Common.ReplaceText(URLParameters, "\&ClassID=[0-9]*", "")
   ClassURL = EL_Common.ReplaceText(ClassURL, "Show", "")
End If
If OnTop = "" Then OnTop = EL_False
If Commended = "" Then Commended = EL_False

CurrentPath = "·您现在的位置：<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"'>"& EL_Channel.ItemName &"管理首页</a> "

%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td colspan="2" align="center" class="top_25"><strong><%=EL_Channel.ChannelName%>管理</strong></td>
  </tr>
  <tr>
    <td width="7%" nowrap class="td_50">管理导航：</td>
    <td width="93%" class="td_50">
	<div class="leftdiv">
	<a href="<%=EL_CurrentScriptName%>?ChannelID=<%=EL_Channel.ChannelID%>"><%=EL_Channel.ItemName%>管理首页</a> | 
	<a href="<%=EL_CurrentScriptName%>?ChannelID=<%=EL_Channel.ChannelID%>&Action=Add">添加<%=EL_Channel.ItemName%></a> | 
	<a href="<%=EL_CurrentScriptName%>?ChannelID=<%=EL_Channel.ChannelID%>&ManageType=Check&Passed=<%=EL_False%>"><%=EL_Channel.ItemName%>发布</a> | 
	<a href="<%=EL_CurrentScriptName%>?ChannelID=<%=EL_Channel.ChannelID%>&Action=Batch">批量<%=EL_Channel.ItemName%>设置</a> | 
	<a href="<%=EL_CurrentScriptName%>?ChannelID=<%=EL_Channel.ChannelID%>&ManageType=Recycled"><%=EL_Channel.ItemName%>回收站</a>
	</div>	
	</td>
  </tr>
  <tr>
    <td class="item_25">管理选项：</td>
    <td class="item_25">
	<div class="leftdiv">
	<input name="Passed" type="radio" class="nomargin" value="" onClick="location.href='<%=EL_CurrentScriptName%>?ChannelID=<%=EL_Channel.ChannelID%>&ClassID=<%=ClassID%>&ManageType=<%=ManageType%>&onTop=<%=OnTop%>&Commended=<%=Commended%>&Passed='+this.value" <%=EL_Common.SetObjectChecked("", Passed)%>>    
      所有<%=EL_Channel.ItemName%> <input type="radio" name="Passed" value="<%=EL_True%>" class="nomargin" onClick="location.href='<%=EL_CurrentScriptName%>?ChannelID=<%=EL_Channel.ChannelID%>&ClassID=<%=ClassID%>&ManageType=<%=ManageType%>&onTop=<%=OnTop%>&Commended=<%=Commended%>&Passed='+this.value" <%=EL_Common.SetObjectChecked(EL_True, Passed)%>>
      已发布<%=EL_Channel.ItemName%>
      <input type="radio" name="Passed" value="<%=EL_False%>" class="nomargin" onClick="location.href='<%=EL_CurrentScriptName%>?ChannelID=<%=EL_Channel.ChannelID%>&ClassID=<%=ClassID%>&ManageType=<%=ManageType%>&onTop=<%=OnTop%>&Commended=<%=Commended%>&Passed='+this.value" <%=EL_Common.SetObjectChecked(EL_False, Passed)%>>
      未发布<%=EL_Channel.ItemName%>	</div>
	<div class="rightdiv">
	  <input name="OnTop" type="checkbox" class="nomargin" id="OnTop" value="<%=EL_True%>" onClick="location.href='<%=EL_CurrentScriptName%>?ChannelID=<%=EL_Channel.ChannelID%>&ClassID=<%=ClassID%>&ManageType=<%=ManageType%>&Passed=<%=Passed%>&Commended=<%=Commended%>&OnTop='+(<%=OnTop%>==<%=EL_True%>?<%=EL_False%>:<%=EL_True%>)" <%=EL_Common.SetObjectChecked(EL_True, OnTop)%>>
	  固顶<%=EL_Channel.ItemName%>
	  <input name="Commended" type="checkbox" class="nomargin" id="Commended" value="<%=EL_True%>" onClick="location.href='<%=EL_CurrentScriptName%>?ChannelID=<%=EL_Channel.ChannelID%>&ClassID=<%=ClassID%>&ManageType=<%=ManageType%>&Passed=<%=Passed%>&OnTop=<%=OnTop%>&Commended='+(<%=Commended%>==<%=EL_True%>?<%=EL_False%>:<%=EL_True%>)" <%=EL_Common.SetObjectChecked(EL_True, Commended)%>>
    推荐<%=EL_Channel.ItemName%>
	</div>
	</td>
  </tr>
</table>
<br>
<%
Select Case Action
  Case "":                  Call ManageCar()
  Case "Add":               Call AddCar()
  Case "Save":              Call SaveCar(0)
  Case "Modify":            Call ModifyCar()
  Case "SaveModify":        Call SaveCar(1)
  Case "Delete":            Call SaveCar(2)
  Case "SetOnTop":          Call SaveCar(3)
  Case "SetCommended":      Call SaveCar(4)
  Case "SetPassed":         Call SaveCar(5)
  Case "Restore":           Call SaveCar(6)
  Case "DeleteTrue":        Call SaveCar(7)
  Case "Move":              Call SaveCar(8)
  Case "DeleteAllTrue":     Call SaveCar(9)
  Case "RestoreAll":        Call SaveCar(10)
  Case "Batch":             Call BatchSetup()
  Case "SaveBatch":         Call SaveBatch()
  Case "Show":              Call ShowCar()
End Select
Call EL_Common.Bottom()
Call ApplicationTerminate()

Sub SaveBatch()
  On Error Resume Next
  Dim BatchCmd
  Dim SetupType, ArrSetItems, ArrCarID, ArrClassID
  Dim Foregift, OverExpense, OnTop, Commended, Hits, SkinID, TemplateID
  
  SetupType = EL_Common.ELRequest("SetupType", 2)
  ArrSetItems = EL_Common.ELRequest("SetItems", 1)
  ArrCarID = EL_Common.ELRequest("ArrCarID", 1)
  ArrClassID = EL_Common.ELRequest("ArrClassID", 1)
  Foregift = EL_Common.ELRequest("Foregift", 2)
  OverExpense = EL_Common.ELRequest("OverExpense", 1)
  OnTop = EL_Common.ELRequest("OnTop", 2)
  Commended = EL_Common.ELRequest("Commended", 2)
  Hits = EL_Common.ELRequest("Hits", 2)
  SkinID = EL_Common.ELRequest("SkinID", 2)
  TemplateID   = EL_Common.ELRequest("TemplateID", 2)  
  
  '检查权限
  If EL_Admin.Purview <> 1 And EL_Admin.Purview <> 2 Then     
     Dim ArrCheckClassID, CheckCmd, rsCheck, i, RowCount
	 If SetupType = 0 Then
	    Call EL_Common.InitCommonCmd(CheckCmd, rsCheck, "EL_Car", "ClassID", "ChannelID="& EL_Channel.ChannelID &" And CarID IN("& ArrCarID &") GROUP BY ClassID")
		rsCheck.Close()
		RowCount = CheckCmd(0)
		If RowCount = 0 Then		   
		   Set rsCheck = Nothing
		   Set CheckCmd = Nothing
           EL_Admin.ShowPurviewError("对不起，您只能管理栏目权限范围之内的"& EL_Channel.ItemName)
		End If
		rsCheck.Open()
		For i = 1 To RowCount
		   If EL_Admin.CheckAdminPurview(rsCheck(0), 2) = False Then		      
			  rsCheck.Close()
			  Set rsCheck = Nothing
			  Set CheckCmd = Nothing
			  EL_Admin.ShowPurviewError("对不起，您只能管理栏目权限范围之内的"& EL_Channel.ItemName)
		   End If
		   If i<RowCount Then rsCheck.MoveNext
		Next
		rsCheck.Close()
		Set rsCheck = Nothing
		Set CheckCmd = Nothing
     Else
	    ArrCheckClassID = Split(ArrClassID, ",")
		For i = 0 To Ubound(ArrCheckClassID)
		   If EL_Admin.CheckAdminPurview(ArrCheckClassID(i), 2) = False Then
		      EL_Admin.ShowPurviewError("对不起，您只能管理栏目权限范围之内的"& EL_Channel.ItemName)
		   End If
		Next
     End If
  End If 
  
  Call EL_Common.InitCommand(BatchCmd, "EL_SP_CarBatchSetup")
  With BatchCmd
    .Parameters.Append .CreateParameter("RETURN", 2, 4)
	.Parameters.Append .CreateParameter("@SetupType", 3, 1, 4, SetupType)
	.Parameters.Append .CreateParameter("@ArrSetItems", 200, 1, 500, ArrSetItems)
	.Parameters.Append .CreateParameter("@ArrCarID", 200, 1, 4000, ArrCarID)
	.Parameters.Append .CreateParameter("@ArrClassID", 200, 1, 4000, ArrClassID)
	.Parameters.Append .CreateParameter("@Foregift", 6, 1, 8, Foregift)
	.Parameters.Append .CreateParameter("@OverExpense", 200, 1, 100, OverExpense)
	.Parameters.Append .CreateParameter("@OnTop", 11, 1, 1, OnTop)
	.Parameters.Append .CreateParameter("@Commended", 11, 1, 1, Commended)
	.Parameters.Append .CreateParameter("@Hits", 3, 1, 4, Hits)
	.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.ItemName &"ID") : Set BatchCmd = Nothing : Exit Sub
	Case 41: EL_Common.ShowErrorMsg("未指定"& EL_Channel.ItemName & EL_Channel.ClassItemName) : Set BatchCmd = Nothing : Exit Sub
	Case 42: EL_Common.ShowErrorMsg("未指定设置项目") : Set BatchCmd = Nothing : Exit Sub
  End Select
  Set BatchCmd = Nothing
  
  EL_Common.ShowSuccessMsg("完成批量"& EL_Channel.ItemName &"设置<p>【<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"'>"& EL_Channel.ItemName &"管理</a>】</p>")  
  EL_Common.ShowScriptError()
End Sub

Sub SaveCar(UpdateType)
   On Error Resume Next
   Dim CarCmd
   Dim CarID, CarName, Seat, Foregift, PriceHour1, PriceHour2, PriceDay1, PriceDay2, PriceMonth1, PriceMonth2
   Dim OverExpense, Content, DefaultPictrue, Uploadfiles, OnTop, Commended, Hits, SkinID, TemplateID, UpdateTime, Passed
   Dim DefineField, IsSaveRemoteImages, Inputer, Editor, IsDiscount
   
   CarID = EL_Common.ELRequest("CarID", 2)
   CarName = EL_Common.ELRequest("CarName", 1)
   Seat = EL_Common.ELRequest("Seat", 2)
   Foregift = EL_Common.ELRequest("Foregift", 2)
   PriceHour1 = EL_Common.ELRequest("PriceHour1", 2)
   PriceHour2 = EL_Common.ELRequest("PriceHour2", 2)
   PriceDay1 = EL_Common.ELRequest("PriceDay1", 2)
   PriceDay2 = EL_Common.ELRequest("PriceDay2", 2)
   PriceMonth1 = EL_Common.ELRequest("PriceMonth1", 2)
   PriceMonth2 = EL_Common.ELRequest("PriceMonth2", 2)
   OverExpense = EL_Common.ELRequest("OverExpense", 1)
   IsDiscount = EL_Common.ELRequest("IsDiscount", 2)
   Content = EL_Common.ELRequest("Content", 1)
   DefaultPictrue = EL_Common.ELRequest("DefaultPictrue", 1)
   Uploadfiles = EL_Common.ELRequest("Uploadfiles", 1)
   OnTop = EL_Common.ELRequest("OnTop", 2)
   Commended = EL_Common.ELRequest("Commended", 2)
   Hits = EL_Common.ELRequest("Hits", 2)
   SkinID = EL_Common.ELRequest("SkinID", 2)
   TemplateID = EL_Common.ELRequest("TemplateID", 2)
   UpdateTime = EL_Common.ELRequest("UpdateTime", 1)
   Passed = EL_Common.ELRequest("Passed", 1)
   Inputer = EL_Admin.AdminName
   Editor = EL_Admin.AdminName   
   IsSaveRemoteImages = EL_Common.ELRequest("IsSaveRemoteImages", 2)
   If UpdateTime = "" Then UpdateTime = Now()
   
   Select Case UpdateType
      Case 0, 1:
	     If Not IsDate(UpdateTime) Then
		    EL_Common.ShowErrorMsg("更新日期的时间格式错误")
		    Exit Sub
		 End If
		 
		 '检查录入权限
		 If EL_Admin.Purview <> 1 And  EL_Admin.Purview <> 2 Then
		    If EL_Admin.CheckAdminPurview(ClassID, 2) = False Then
		       EL_Admin.ShowPurviewError("对不起！您只能在自己管理的"& EL_Channel.ClassItemName &"中录入或修改"& EL_Channel.ItemName)
		    End If
		 End If
		 
		 '取自定义字段值
		 DefineField = EL_Common.RequestDefineField(EL_Channel.ChannelID)
		 
		 '检查并保存远程图片
		 If EnableSaveRemote = True And IsSaveRemoteImages = 1 Then
		   Dim ObjectSRI, SRI_Uploadfiles
		   Set ObjectSRI = New SaveRemoteImages
		   ObjectSRI.SetCreateWatermark = EnableWatermark
		   ObjectSRI.SetCreateThumb = EnableCreateThumb	 	 
		   Content = ObjectSRI.AutoSave(Content, EL_Channel.FilePath)
		   If ObjectSRI.GetSRI_Flag() = True Then
		      SRI_Uploadfiles = ObjectSRI.GetImagesList()
		      Uploadfiles = EL_Common.Join2String(Uploadfiles, SRI_Uploadfiles, "|")
		   End If
		   Set ObjectSRI = Nothing
		 End If	  
	  Case Else:
	      DefineField = EL_Common.ELRequest("CheckObject", 1)
		  Passed = EL_Common.ELRequest("SetValue", 2)
		  If CarID <> 0 Then DefineField = EL_Common.Join2String(DefineField, CarID, ",")
		  
		  If UpdateType = 8 Then
		     ClassID = EL_Common.ELRequest("TargetClassID", 2)
		     '检查权限
			 If  EL_Admin.Purview <> 1 And EL_Admin.Purview <> 2 Then
			    If EL_Admin.CheckAdminPurview(ClassID, 2) = False Then
			       EL_Admin.ShowPurviewError("对不起！您只能在自己管理的"& EL_Channel.ClassItemName &"中移动"& EL_Channel.ItemName)
			    End If
			 End If
12345

⌨️ 快捷键说明

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