📄 admin_photo.asp

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

Dim ManageType, Passed, OnTop, Commended
Dim ClassID, CurrentPath, Search_Keywords, Search_Field, ClassURL

ManageType = EL_Common.ELRequest("ManageType", 1)
ClassID = EL_Common.ReplaceBadChar(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 align="center" class="top_25" colspan="2"><strong><%=EL_Channel.ChannelName%>管理</strong></td>
  </tr>
  <tr>
    <td width="8%" nowrap class="td_50">管理导航：</td>
    <td width="92%" class="td_50">
	<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>
    </td>
  </tr>
  <tr>
    <td nowrap 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 ManagePhoto()
  Case "Add":               Call AddPhoto()
  Case "SaveNewPhoto":      Call SavePhoto(0)
  Case "Modify":            Call ModifyPhoto()
  Case "SaveModify":        Call SavePhoto(1)
  Case "Delete":            Call SavePhoto(2)
  Case "SetOnTop":          Call SavePhoto(3)
  Case "SetCommended":      Call SavePhoto(4)
  Case "SetPassed":         Call SavePhoto(5)
  Case "Restore":           Call SavePhoto(6)
  Case "DeleteTrue":        Call SavePhoto(7)
  Case "Move":              Call SavePhoto(8)
  Case "DeleteAllTrue":     Call SavePhoto(9)
  Case "RestoreAll":        Call SavePhoto(10)
  Case "SetDefaultPictrue": Call SavePhoto(11)
  Case "Show":              Call ShowPhoto()
  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, ArrPhotoID, ArrClassID
  Dim Author, Copyfrom, Keywords, OnTop, Commended, Hits, SkinID, TemplateID
  
  SetupType = EL_Common.ELRequest("SetupType", 2)
  ArrSetItems = EL_Common.ELRequest("SetItems", 1)
  ArrPhotoID = EL_Common.ELRequest("ArrPhotoID", 1)
  ArrClassID = EL_Common.ELRequest("ArrClassID", 1)
  Author = EL_Common.ELRequest("Author", 3)
  Copyfrom = EL_Common.ELRequest("Copyfrom", 3)
  Keywords = EL_Common.ELRequest("Keywords", 3)
  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_Photo", "ClassID", "ChannelID="& EL_Channel.ChannelID &" And PhotoID IN("& ArrPhotoID &") 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_PhotoBatchSetup")
  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("@ArrPhotoID", 200, 1, 4000, ArrPhotoID)
	.Parameters.Append .CreateParameter("@ArrClassID", 200, 1, 4000, ArrClassID)
	.Parameters.Append .CreateParameter("@Author", 200, 1, 50, Author)
	.Parameters.Append .CreateParameter("@Copyfrom", 200, 1, 50, Copyfrom)
	.Parameters.Append .CreateParameter("@Keywords", 200, 1, 255, Keywords)
	.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 SavePhoto(UpdateType)
  On Error Resume Next
  Dim PhotoCmd
  Dim PhotoID, ClassID, PhotoName, Keywords, Author, Copyfrom, Content, DefaultPictrue, Uploadfiles
  Dim Hits, OnTop, Commended, Passed, UpdateTime, SkinID, TemplateID, Inputer, Editor
  Dim DefineField
  
  PhotoID = EL_Common.ELRequest("PhotoID", 2)
  ClassID = EL_Common.ELRequest("ClassID", 2)
  PhotoName = EL_Common.ELRequest("PhotoName", 1)
  Keywords = EL_Common.ReplaceBadChar(EL_Common.ELRequest("Keywords", 1))
  Author = EL_Common.ELRequest("Author", 1)
  Copyfrom = EL_Common.ELRequest("Copyfrom", 1)
  Content = EL_Common.ELRequest("Content", 1)
  DefaultPictrue = EL_Common.ELRequest("DefaultPictrue", 1)
  Uploadfiles = EL_Common.ELRequest("Uploadfiles", 1)
  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)
  SkinID = EL_Common.ELRequest("SkinID", 2)
  TemplateID = EL_Common.ELRequest("TemplateID", 2)
  Inputer = EL_Admin.AdminName
  Editor = EL_Admin.AdminName
  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)
		
	 Case 11:
	    DefineField = EL_Common.ELRequest("Pic", 1)
		If EL_Admin.Purview <> 1 And EL_Admin.Purview <> 2 Then 
		   ClassID = EL_Common.GetFieldValue("ClassID", "EL_Photo", "ChannelID="& EL_Channel.ChannelID &" AND PhotoID="& PhotoID)
		   If EL_Admin.CheckAdminPurview(ClassID, 2) = False Then
		      EL_Admin.ShowPurviewError("对不起！您只能在自己管理的"& EL_Channel.ClassItemName &"中修改"& EL_Channel.ItemName &"属性")
		   End If
		End If
	 Case Else:
	    DefineField = EL_Common.ELRequest("CheckObject", 1)
		Passed = EL_Common.ELRequest("SetValue", 2)
		If PhotoID <> 0 Then DefineField = EL_Common.Join2String(DefineField, PhotoID, ",")
		
		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
		End If		
  End Select 
  
  Call EL_Common.InitCommand(PhotoCmd, "EL_SP_Photo")
  With PhotoCmd
     .Parameters.Append .CreateParameter("RETURN", 2, 4)
	 .Parameters.Append .CreateParameter("@UpdateType", 3, 1, 4, UpdateType)
	 If UpdateType = 0 Then
12 3 4 5 下一页
💿 文件大小 4678 K
👤 上传用户 libin2722
📂 所属分类企业管理
🏷️ 相关标签

#Elan #2008 #SP #旅游
⌨️ 快捷键说明

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