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

📄 admin_sight.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>
<script language="javascript" src="../js/City.js"></script>
</head>
<body>
<%
Call EL_Common.CheckChannel(EL_Channel.ChannelID, 5)

Dim Province, City, Area, CityURL
Dim ManageType, Passed, OnTop, Commended
Dim CurrentPath, Search_Keywords, Search_Field
ManageType = EL_Common.ELRequest("ManageType", 1)
Passed = EL_Common.ELRequest("Passed", 1)
OnTop = EL_Common.ELRequest("OnTop", 1)
Commended = EL_Common.ELRequest("Commended", 1)
Province = EL_Common.ReplaceBadChar(EL_Common.ELRequest("Province", 1))
City = EL_Common.ReplaceBadChar(EL_Common.ELRequest("City", 1))
Area = EL_Common.ReplaceBadChar(EL_Common.ELRequest("Area", 1))
Search_Keywords = EL_Common.ReplaceBadChar(EL_Common.ELRequest("Search_Keywords", 1))
Search_Field = EL_Common.ReplaceBadChar(EL_Common.ELRequest("Search_Field", 1))

If OnTop = "" Then OnTop = EL_False
If Commended = "" Then Commended = EL_False
CityURL = "Province="& EL_Common.ServerURLEncode(Province) &"&City="& EL_Common.ServerURLEncode(City) &"&Area="& EL_Common.ServerURLEncode(Area)
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="9%" nowrap class="td_50"> 管理导航：</td>
    <td 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%>&ManageType=<%=ManageType%>&onTop=<%=OnTop%>&Commended=<%=Commended%>&<%=CityURL%>&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%>&ManageType=<%=ManageType%>&onTop=<%=OnTop%>&Commended=<%=Commended%>&<%=CityURL%>&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%>&ManageType=<%=ManageType%>&onTop=<%=OnTop%>&Commended=<%=Commended%>&<%=CityURL%>&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%>&ManageType=<%=ManageType%>&Passed=<%=Passed%>&<%=CityURL%>&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%>&ManageType=<%=ManageType%>&Passed=<%=Passed%>&<%=CityURL%>&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 ManageSight()
  Case "Add":               Call AddSight()
  Case "SaveNewSight":      Call SaveSight(0)
  Case "Modify":            Call ModifySight()
  Case "SaveModify":        Call SaveSight(1)
  Case "Delete":            Call SaveSight(2)
  Case "SetOnTop":          Call SaveSight(3)
  Case "SetCommended":      Call SaveSight(4)
  Case "SetPassed":         Call SaveSight(5)
  Case "Restore":           Call SaveSight(6)
  Case "DeleteTrue":        Call SaveSight(7)
  Case "DeleteAllTrue":     Call SaveSight(8)
  Case "RestoreAll":        Call SaveSight(9)
  Case "Show":              Call ShowSight()  
  Case "Batch":             Call BatchSetup()
  Case "SaveBatch":         Call SaveBatch()
End Select
Call EL_Common.Bottom()
Call ApplicationTerminate()

Sub SaveBatch()
  On Error Resume Next
  Dim BatchCmd
  Dim SetupType, ArrSetItems, ArrSightID, Province, City, Area
  Dim MarketPrice, BookPrice, OpenTime, OnTop, Commended, Hits, SkinID, TemplateID
  
  SetupType = EL_Common.ELRequest("SetupType", 2)
  ArrSetItems = EL_Common.ELRequest("SetItems", 1)
  ArrSightID = EL_Common.ELRequest("ArrSightID", 1)
  Province = EL_Common.ELRequest("Province", 3)
  City = EL_Common.ELRequest("City", 3)
  Area = EL_Common.ELRequest("Area", 3) 
  MarketPrice = EL_Common.ELRequest("MarketPrice", 2)
  BookPrice = EL_Common.ELRequest("BookPrice", 2)
  OpenTime = EL_Common.ELRequest("OpenTime", 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     
     EL_Admin.ShowPurviewError("对不起，您没有足够的管理权限")
  End If  
  
  Call EL_Common.InitCommand(BatchCmd, "EL_SP_SightBatchSetup")
  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("@ArrSightID", 200, 1, 4000, ArrSightID)
	.Parameters.Append .CreateParameter("@Province", 200, 1, 30, Province)
	.Parameters.Append .CreateParameter("@City", 200, 1, 30, City)
	.Parameters.Append .CreateParameter("@Area", 200, 1, 30, Area)
	.Parameters.Append .CreateParameter("@MarketPrice", 6, 1, 8, MarketPrice)
	.Parameters.Append .CreateParameter("@BookPrice", 6, 1, 8, BookPrice)
	.Parameters.Append .CreateParameter("@OpenTime", 200, 1, 100, OpenTime)
	.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 SaveSight(UpdateType)
   On Error Resume Next
   Dim SightCmd
   Dim Province, City, Area
   Dim SightID, ClassID, SightName, MarketPrice, BookPrice, OpenTime, Address
   Dim AroundHotel, AroundSight, TravelHint, Content, DefaultPictrue, Uploadfiles
   Dim SkinID, TemplateID, Hits, OnTop, Commended, Passed, UpdateTime, Inputer, Editor, IsDiscount
   Dim DefineField, IsSaveRemoteImages
   
   SightID = EL_Common.ELRequest("SightID", 2)
   Province = EL_Common.ELRequest("sProvince", 1)
   City = EL_Common.ELRequest("sCity", 1)
   Area = EL_Common.ELRequest("sArea", 1)   
   SightName = EL_Common.ELRequest("SightName", 1)
   MarketPrice = EL_Common.ELRequest("MarketPrice", 2)
   BookPrice = EL_Common.ELRequest("BookPrice", 2)
   OpenTime = EL_Common.ELRequest("OpenTime", 1)
   Address = EL_Common.ELRequest("Address", 1)
   AroundHotel = EL_Common.ELRequest("AroundHotel", 1)
   AroundSight = EL_Common.ELRequest("AroundSight", 1)
   TravelHint = EL_Common.ELRequest("TravelHint", 1)
   Content = EL_Common.ELRequest("Content", 1)
   DefaultPictrue = EL_Common.ELRequest("DefaultPictrue", 1)
   Uploadfiles = EL_Common.ELRequest("Uploadfiles", 1)
   SkinID = EL_Common.ELRequest("SkinID", 2)
   TemplateID = EL_Common.ELRequest("TemplateID", 2)
   Hits = EL_Common.ELRequest("Hits", 2)
   OnTop = EL_Common.ELRequest("OnTop", 2)
   Commended = EL_Common.ELRequest("Commended", 2)
   Passed = EL_Common.ELRequest("Passed", 2)
   UpdateTime = EL_Common.ELRequest("UpdateTime", 1)
   Inputer = EL_Admin.AdminName
   Editor = EL_Admin.AdminName
   IsDiscount = EL_Common.ELRequest("IsDiscount", 2)   
   IsSaveRemoteImages = EL_Common.ELRequest("IsSaveRemoteImages", 2)
   If UpdateTime = "" Then UpdateTime = Now()    
  
  Select Case UpdateType
     Case 0, 1: '添加、修改
	    '过滤系统特殊字符
		SightName = Replace(SightName, "$", "")
		SightName = Replace(SightName, "|", "") 	
		
		If UpdateType = 0 Then
		   Response.Cookies("Admin_Sight_"& EL_Sn)("Province") = Province
		   Response.Cookies("Admin_Sight_"& EL_Sn)("City") = City
		   Response.Cookies("Admin_Sight_"& EL_Sn)("Area") = Area
		End If	
	    
		If Not IsDate(UpdateTime) Then
		   EL_Common.ShowErrorMsg("更新日期的时间格式错误")
		   Exit Sub
		End If 
		 
		'检查录入权限
		If EL_Admin.Purview <> 1 And  EL_Admin.Purview <> 2 Then
		   EL_Admin.ShowPurviewError("对不起！您没有权限录入或修改"& EL_Channel.ItemName)
		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 SightID <> 0 Then DefineField = EL_Common.Join2String(DefineField, SightID, ",")
  End Select  
  
  Call EL_Common.InitCommand(SightCmd, "EL_SP_Sight")
  With SightCmd
    .Parameters.Append .CreateParameter("RETURN", 2, 4)
	.Parameters.Append .CreateParameter("@UpdateType", 3, 1, 4, UpdateType)
	If UpdateType = 0 Then
	   .Parameters.Append .CreateParameter("SightID", 3, 2, 4)
	Else
	   .Parameters.Append .CreateParameter("SightID", 3, 1, 4, SightID)
	End If
	.Parameters.Append .CreateParameter("@ChannelID", 3, 1, 4, EL_Channel.ChannelID)
	.Parameters.Append .CreateParameter("@Province", 200, 1, 30, Province)
	.Parameters.Append .CreateParameter("@City", 200, 1, 30, City)
	.Parameters.Append .CreateParameter("@Area", 200, 1, 30, Area)
	.Parameters.Append .CreateParameter("@SightName", 200, 1, 255, SightName)
	.Parameters.Append .CreateParameter("@MarketPrice", 6, 1, 8, MarketPrice)
	.Parameters.Append .CreateParameter("@BookPrice", 6, 1, 8, BookPrice)
	.Parameters.Append .CreateParameter("@OpenTime", 200, 1, 100, OpenTime)
	.Parameters.Append .CreateParameter("@Address", 200, 1, 255, Address)
	.Parameters.Append .CreateParameter("@AroundHotel", 203, 1, EL_Common.LenParameter(AroundHotel), AroundHotel)
	.Parameters.Append .CreateParameter("@AroundSight", 203, 1, EL_Common.LenParameter(AroundSight), AroundSight)
	.Parameters.Append .CreateParameter("@TravelHint", 203, 1, EL_Common.LenParameter(TravelHint), TravelHint)
	.Parameters.Append .CreateParameter("@Content", 203, 1, EL_Common.LenParameter(Content), Content)
	.Parameters.Append .CreateParameter("@DefaultPictrue", 200, 1, 255, DefaultPictrue)
	.Parameters.Append .CreateParameter("@Uploadfiles", 203, 1, EL_Common.LenParameter(Uploadfiles), Uploadfiles)
	.Parameters.Append .CreateParameter("@SkinID", 3, 1, 4, SkinID)
	.Parameters.Append .CreateParameter("@TemplateID", 3, 1, 4, TemplateID)
	.Parameters.Append .CreateParameter("@Hits", 3, 1, 4, Hits)
	.Parameters.Append .CreateParameter("@OnTop", 11, 1, 1, OnTop)
	.Parameters.Append .CreateParameter("@Commended", 11, 1, 1, Commended)
	.Parameters.Append .CreateParameter("@Passed", 11, 1, 1, Passed)
	.Parameters.Append .CreateParameter("@IsDiscount", 11, 1, 1, IsDiscount)
	.Parameters.Append .CreateParameter("@UpdateTime", 135, 1, 8, UpdateTime)
	.Parameters.Append .CreateParameter("@Inputer", 200, 1, 50, Inputer)
	.Parameters.Append .CreateParameter("@Editor", 200, 1, 50, Editor)
	.Parameters.Append .CreateParameter("@DefineField", 200, 1, 4000, DefineField)
12345

⌨️ 快捷键说明

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