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

📄 admin_article.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, 1)

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="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%>&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 ManageArticle()
  Case "Add":               Call AddArticle()
  Case "Save":              Call SaveArticle(0)
  Case "Modify":            Call ModifyArticle()
  Case "SaveModify":        Call SaveArticle(1)
  Case "Show":              Call ShowArticle()
  Case "Delete":            Call SaveArticle(2)
  Case "SetOnTop":          Call SaveArticle(3)
  Case "SetCommended":      Call SaveArticle(4)
  Case "SetPassed":         Call SaveArticle(5)
  Case "Restore":           Call SaveArticle(6)
  Case "DeleteTrue":        Call SaveArticle(7)
  Case "Move":              Call SaveArticle(8)
  Case "DeleteAllTrue":     Call SaveArticle(9)
  Case "RestoreAll":        Call SaveArticle(10)
  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, ArrArticleID, ArrClassID
  Dim Author, Copyfrom, Keywords, OnTop, Commended, Hits, SkinID, TemplateID
  
  SetupType = EL_Common.ELRequest("SetupType", 2)
  ArrSetItems = EL_Common.ELRequest("SetItems", 1)
  ArrArticleID = EL_Common.ELRequest("ArrArticleID", 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_Article", "ClassID", "ChannelID="& EL_Channel.ChannelID &" And ArticleID IN("& ArrArticleID &") 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_ArticleBatchSetup")
  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("@ArrArticleID", 200, 1, 4000, ArrArticleID)
	.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 SaveArticle(UpdateType)
  On Error Resume Next
  
  Dim ArticleCmd
  Dim ArticleID, ClassID, Title, Keywords, Author, Copyfrom, Content
  Dim DefaultPictrue, Uploadfiles, Hits, OnTop, Commended, Passed, UpdateTime, SkinID, TemplateID, Inputer, Editor
  Dim DefineField, IsSaveRemoteImages
  
  ArticleID = EL_Common.ELRequest("ArticleID", 2)
  ClassID = EL_Common.ELRequest("ClassID", 2)
  Title = EL_Common.ELRequest("Title", 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    
  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 ArticleID <> 0 Then DefineField = EL_Common.Join2String(DefineField, ArticleID, ",")
		
		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 + -