📄 admin_collection.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"-->
<!--#Include File="Class/Admin_ClassCollection.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href='Admin_Style.css' type='text/css' rel='stylesheet'>
<script language="javascript" src="../js/Common.js"></script>
<script language="javascript" src="../js/InstallDir.js"></script>
<title>信息采集管理</title>
</head>
<body>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td align="center" class="top_25"><strong>信息采集管理</strong></td>
  </tr>
  <tr>
    <td class="td_50">管理导航：<a href="Admin_Collection.asp">管理首页</a> | <a href="Admin_Collection.asp?Action=Add">添加采集项目</a> | <a href="Admin_Collection.asp?Action=Import">采集项目导入</a> | <a href="Admin_Collection.asp?Action=Export">采集项目导出</a> | <a href="Admin_Collection.asp?Action=Fliter">采集过滤管理</a> | <a href="Admin_Collection.asp?Action=AddFliter">添加采集过滤</a></td>
  </tr>
</table>
<br>
<%
Dim CurrentPath, ArrCharset(2), ArrFliterObjectType(1)
ArrCharset(0) = "GB2312"
ArrCharset(1) = "UTF-8"
ArrCharset(2) = "Big5"
ArrFliterObjectType(0) = "标题过滤"
ArrFliterObjectType(1) = "正文过滤"
CurrentPath = "·您现在的位置：<a href='Admin_Collection.asp'>采集管理首页</a> "

Select Case Action
  Case "": Call ManageCollection()
  Case "Add", "Step1": Call AddCollection()
  Case "SaveStep1": Call SaveCollection(1)
  Case "Step2": Call Collection2()
  Case "SaveStep2": Call SaveCollection(2)  
  Case "Step3": Call Collection3()
  Case "SaveStep3": Call SaveCollection(3)  
  Case "Step4": Call Collection4()
  Case "Step5": Call Collection5()
  Case "SaveStep5": Call SaveCollection(4)  
  Case "Step6": Call Collection6()
  Case "Modify": Call ModifyCollection()
  Case "SaveModify": Call SaveCollection(5)
  Case "Delete": Call SaveCollection(6)
  Case "Run": Call RunCollection()
  Case "Fliter": Call ManageFliter()
  Case "AddFliter": Call AddFliter()
  Case "SaveNewFliter": Call SaveFliter(0)
  Case "ModifyFliter": Call ModifyFliter()
  Case "SaveModifyFliter": Call SaveFliter(1)
  Case "SetFliterEnabled": Call SaveFliter(2)
  Case "DeleteFliter": Call SaveFliter(3)
  Case "Import": Call Import()
  Case "Export": Call Export()
End Select
Call EL_Common.Bottom()
Call ApplicationTerminate()

Sub SaveFliter(SaveType)
  On Error Resume Next
  Dim FliterCmd, ArrFliterID
  Dim FliterID, FliterName, CollectionID, FliterObjectType, FliterType, BeginString, EndString, ReplaceString, Enabled, ContentString
  
  ArrFliterID = ""
  FliterID = EL_Common.ELRequest("FliterID", 2)
  FliterName = EL_Common.ELRequest("FliterName", 1)
  CollectionID = EL_Common.ELRequest("CollectionID", 2)
  FliterObjectType = EL_Common.ELRequest("FliterObjectType", 2)
  FliterType = EL_Common.ELRequest("FliterType", 2)
  ContentString = EL_Common.ELRequest("ContentString", 1)
  BeginString = EL_Common.ELRequest("BeginString", 1)
  EndString = EL_Common.ELRequest("EndString", 1)
  ReplaceString = EL_Common.ELRequest("ReplaceString", 1)
  Enabled = EL_Common.ELRequest("Enabled", 2)

  If FliterType = 0 Then
     BeginString = ContentString
  End If
  
  If SaveType = 2 Or SaveType = 3 Then
     ArrFliterID = EL_Common.ELRequest("CheckObject", 1)
	 ArrFliterID = EL_Common.Join2String(ArrFliterID, FliterID, ",")
  End If
  
  Call EL_Common.InitCommand(FliterCmd, "EL_SP_Fliter")
  With FliterCmd
     .Parameters.Append .CreateParameter("RETURN", 2, 4)
	 .Parameters.Append .CreateParameter("@SaveType", 3, 1, 4, SaveType)
	 If SaveType = 0 Then
	    .Parameters.Append .CreateParameter("@FliterID", 3, 2, 4)
	 Else
	    .Parameters.Append .CreateParameter("@FliterID", 3, 1, 4, FliterID)
	 End If
	 .Parameters.Append .CreateParameter("@FliterName", 200, 1, 50, FliterName)
	 .Parameters.Append .CreateParameter("@CollectionID", 3, 1, 4, CollectionID)
	 .Parameters.Append .CreateParameter("@FliterObjectType", 3, 1, 4, FliterObjectType)
	 .Parameters.Append .CreateParameter("@FliterType", 3, 1, 4, FliterType)
	 .Parameters.Append .CreateParameter("@BeginString", 203, 1, EL_Common.LenParameter(BeginString), BeginString)
	 .Parameters.Append .CreateParameter("@EndString", 203, 1, EL_Common.LenParameter(EndString), EndString)
	 .Parameters.Append .CreateParameter("@ReplaceString", 203, 1, EL_Common.LenParameter(ReplaceString), ReplaceString)
	 .Parameters.Append .CreateParameter("@Enabled", 11, 1, 1, Enabled)
	 .Parameters.Append .CreateParameter("@ArrFliterID", 200, 1, 255, ArrFliterID)
	 .Execute()
  End With
  Set FliterCmd = Nothing
  EL_Common.ShowScriptError()
  Select Case SaveType
     Case 0:
	    EL_Common.ShowSuccessMsg("添加过滤成功")
	 Case 1:
	    EL_Common.ShowSuccessMsg("修改过滤成功")
	 Case 2, 3:
	    Response.Redirect ComeURL
  End Select   
End Sub

Sub SaveCollection(SaveType)
   On Error Resume Next
   Dim CollectionCmd
   Dim CollectionID, CollectionName, Charset
   Dim ListURL, ListBegin, ListEnd, ListABegin, ListAEnd, ListPType, ListPNPBegin, ListPNPEnd, ListPIDString, ListPIDArea, ListPURLString, ListThumbType, ListThumbBegin, ListThumbEnd
   Dim TitleBegin, TitleEnd, KeywordType, KeywordBegin, KeywordEnd, KeywordString, AuthorType, AuthorBegin, AuthorEnd, AuthorString
   Dim CopyfromType, CopyfromBegin, CopyfromEnd, CopyfromString, UpdateTimeType, UpdateTimeBegin, UpdateTimeEnd
   Dim ContentBegin, ContentEnd, ContentPType, ContentPBegin, ContentPEnd, ContentPURLBegin, ContentPURLEnd
   Dim ChannelID, ClassID, CollectionNum, OnTop, Commended, Passed, Hits, SkinID, TemplateID, ArrSetting
   Dim ListPIDAreaBegin, ListPIDAreaEnd
   
   CollectionID = EL_Common.ELRequest("CollectionID", 2)
   CollectionName = EL_Common.ELRequest("CollectionName", 1)
   Charset = EL_Common.ELRequest("Charset", 2)
   ListURL = EL_Common.ELRequest("ListURL", 1)
   ListBegin = EL_Common.ELRequest("ListBegin", 1)
   ListEnd = EL_Common.ELRequest("ListEnd", 1)
   ListABegin = EL_Common.ELRequest("ListABegin", 1)
   ListAEnd = EL_Common.ELRequest("ListAEnd", 1)
   ListPType = EL_Common.ELRequest("ListPType", 2)
   ListPNPBegin = EL_Common.ELRequest("ListPNPBegin", 1)
   ListPNPEnd = EL_Common.ELRequest("ListPNPEnd", 1)
   ListPIDString = EL_Common.ELRequest("ListPIDString", 1)
   ListPIDAreaBegin = EL_Common.ELRequest("ListPIDBegin", 2)
   ListPIDAreaEnd = EL_Common.ELRequest("ListPIDEnd", 2)
   ListPIDArea = ListPIDAreaBegin &"-"& ListPIDAreaEnd
   ListPURLString = EL_Common.ELRequest("ListPURLString", 1)
   ListThumbType = EL_Common.ELRequest("ListThumbType", 2)
   ListThumbBegin = EL_Common.ELRequest("ListThumbBegin", 1)
   ListThumbEnd = EL_Common.ELRequest("ListThumbEnd", 1)
   TitleBegin = EL_Common.ELRequest("TitleBegin", 1)
   TitleEnd = EL_Common.ELRequest("TitleEnd", 1)
   KeywordType = EL_Common.ELRequest("KeywordType", 2)
   KeywordBegin = EL_Common.ELRequest("KeywordBegin", 1)
   KeywordEnd = EL_Common.ELRequest("KeywordEnd", 1)
   KeywordString = EL_Common.ELRequest("KeywordString", 1)
   AuthorType = EL_Common.ELRequest("AuthorType", 2)
   AuthorBegin = EL_Common.ELRequest("AuthorBegin", 1)
   AuthorEnd = EL_Common.ELRequest("AuthorEnd", 1)
   AuthorString = EL_Common.ELRequest("AuthorString", 1)
   CopyfromType = EL_Common.ELRequest("CopyfromType", 2)
   CopyfromBegin = EL_Common.ELRequest("CopyfromBegin", 1)
   CopyfromEnd = EL_Common.ELRequest("CopyfromEnd", 1)
   CopyfromString = EL_Common.ELRequest("CopyfromString", 1)
   UpdateTimeType = EL_Common.ELRequest("UpdateTimeType", 2)
   UpdateTimeBegin = EL_Common.ELRequest("UpdateTimeBegin", 1)
   UpdateTimeEnd = EL_Common.ELRequest("UpdateTimeEnd", 1)
   ContentBegin = EL_Common.ELRequest("ContentBegin", 1)
   ContentEnd = EL_Common.ELRequest("ContentEnd", 1)
   ContentPType = EL_Common.ELRequest("ContentPType", 2)
   ContentPBegin = EL_Common.ELRequest("ContentPBegin", 1)
   ContentPEnd = EL_Common.ELRequest("ContentPEnd", 1)
   ContentPURLBegin = EL_Common.ELRequest("ContentPURLBegin", 1)
   ContentPURLEnd = EL_Common.ELRequest("ContentPURLEnd", 1)
   ChannelID = EL_Common.ELRequest("ChannelID", 2)
   ClassID = EL_Common.ELRequest("ClassID", 2)
   CollectionNum = EL_Common.ELRequest("CollectionNum", 2)
   OnTop = EL_Common.ELRequest("OnTop", 2)
   Commended = EL_Common.ELRequest("Commended", 2)
   Passed = EL_Common.ELRequest("Passed", 2)
   Hits = EL_Common.ELRequest("Hits", 2)
   SkinID = EL_Common.ELRequest("SkinID", 2)
   TemplateID = EL_Common.ELRequest("TemplateID", 2)
   ArrSetting = EL_Common.ELRequest("ArrSetting", 1)
   ArrSetting = Replace(ArrSetting, " ", "")
   
   If SaveType = 6 Then
	  ListURL = EL_Common.ELRequest("CheckObject", 1)
	  ListURL = Replace(ListURL, " ", "")
	  If CollectionID > 0 Then
	     ListURL = EL_Common.Join2String(ListURL, CollectionID, ",")
	  End If
   End If
   
   Call EL_Common.InitCommand(CollectionCmd, "EL_SP_Collection")
   With CollectionCmd
      .Parameters.Append .CreateParameter("RETURN", 2, 4)
	  .Parameters.Append .CreateParameter("@SaveType", 3, 1, 4, SaveType)
	  If SaveType = 1 Then
	     .Parameters.Append .CreateParameter("@CollectionID", 3, 2, 4)
	  Else
	     .Parameters.Append .CreateParameter("@CollectionID", 3, 1, 4, CollectionID)
	  End If
      .Parameters.Append .CreateParameter("CollectionName", 200, 1, 50, CollectionName)
      .Parameters.Append .CreateParameter("Charset", 3, 1, 4, Charset)
      .Parameters.Append .CreateParameter("ListURL", 200, 1, 255, ListURL)
      .Parameters.Append .CreateParameter("ListBegin", 203, 1, EL_Common.LenParameter(ListBegin), ListBegin)
      .Parameters.Append .CreateParameter("ListEnd", 203, 1, EL_Common.LenParameter(ListEnd), ListEnd)
      .Parameters.Append .CreateParameter("ListABegin", 203, 1, EL_Common.LenParameter(ListABegin), ListABegin)
      .Parameters.Append .CreateParameter("ListAEnd", 203, 1, EL_Common.LenParameter(ListAEnd), ListAEnd)
      .Parameters.Append .CreateParameter("ListPType", 3, 1, 4, ListPType)
      .Parameters.Append .CreateParameter("ListPNPBegin", 203, 1, EL_Common.LenParameter(ListPNPBegin), ListPNPBegin)
      .Parameters.Append .CreateParameter("ListPNPEnd", 203, 1, EL_Common.LenParameter(ListPNPEnd), ListPNPEnd)
	  .Parameters.Append .CreateParameter("ListPIDString", 200, 1, 255, ListPIDString)
	  .Parameters.Append .CreateParameter("ListPIDArea", 200, 1, 50, ListPIDArea)
      .Parameters.Append .CreateParameter("ListPURLString", 203, 1, EL_Common.LenParameter(ListPURLString), ListPURLString)	  
	  .Parameters.Append .CreateParameter("ListThumbType", 3, 1, 4, ListThumbType)
      .Parameters.Append .CreateParameter("ListThumbBegin", 203, 1, EL_Common.LenParameter(ListThumbBegin), ListThumbBegin)
      .Parameters.Append .CreateParameter("ListThumbEnd", 203, 1, EL_Common.LenParameter(ListThumbEnd), ListThumbEnd)
      .Parameters.Append .CreateParameter("TitleBegin", 203, 1, EL_Common.LenParameter(TitleBegin), TitleBegin)
      .Parameters.Append .CreateParameter("TitleEnd", 203, 1, EL_Common.LenParameter(TitleEnd), TitleEnd)
      .Parameters.Append .CreateParameter("KeywordType", 3, 1, 4, KeywordType)
      .Parameters.Append .CreateParameter("KeywordBegin", 203, 1, EL_Common.LenParameter(KeywordBegin), KeywordBegin)
      .Parameters.Append .CreateParameter("KeywordEnd", 203, 1, EL_Common.LenParameter(KeywordEnd), KeywordEnd)
      .Parameters.Append .CreateParameter("KeywordString", 200, 1, 255, KeywordString)
      .Parameters.Append .CreateParameter("AuthorType", 3, 1, 4, AuthorType)
      .Parameters.Append .CreateParameter("AuthorBegin", 203, 1, EL_Common.LenParameter(AuthorBegin), AuthorBegin)
      .Parameters.Append .CreateParameter("AuthorEnd", 203, 1, EL_Common.LenParameter(AuthorEnd), AuthorEnd)
      .Parameters.Append .CreateParameter("AuthorString", 200, 1, 255, AuthorString)
      .Parameters.Append .CreateParameter("CopyfromType", 3, 1, 4, CopyfromType)
      .Parameters.Append .CreateParameter("CopyfromBegin", 203, 1, EL_Common.LenParameter(CopyfromBegin), CopyfromBegin)
      .Parameters.Append .CreateParameter("CopyfromEnd", 203, 1, EL_Common.LenParameter(CopyfromEnd), CopyfromEnd)
      .Parameters.Append .CreateParameter("CopyfromString", 200, 1, 255, CopyfromString)
      .Parameters.Append .CreateParameter("UpdateTimeType", 3, 1, 4, UpdateTimeType)
      .Parameters.Append .CreateParameter("UpdateTimeBegin", 203, 1, EL_Common.LenParameter(UpdateTimeBegin), UpdateTimeBegin)
      .Parameters.Append .CreateParameter("UpdateTimeEnd", 203, 1, EL_Common.LenParameter(UpdateTimeEnd), UpdateTimeEnd)
      .Parameters.Append .CreateParameter("ContentBegin", 203, 1, EL_Common.LenParameter(ContentBegin), ContentBegin)
      .Parameters.Append .CreateParameter("ContentEnd", 203, 1, EL_Common.LenParameter(ContentEnd), ContentEnd)
      .Parameters.Append .CreateParameter("ContentPType", 3, 1, 4, ContentPType)
      .Parameters.Append .CreateParameter("ContentPBegin", 203, 1, EL_Common.LenParameter(ContentPBegin), ContentPBegin)
      .Parameters.Append .CreateParameter("ContentPEnd", 203, 1, EL_Common.LenParameter(ContentPEnd), ContentPEnd)
      .Parameters.Append .CreateParameter("ContentPURLBegin", 200, 1, 255, ContentPURLBegin)
	  .Parameters.Append .CreateParameter("ContentPURLEnd", 200, 1, 255, ContentPURLEnd)
      .Parameters.Append .CreateParameter("ChannelID", 3, 1, 4, ChannelID)
      .Parameters.Append .CreateParameter("ClassID", 3, 1, 4, ClassID)
      .Parameters.Append .CreateParameter("CollectionNum", 3, 1, 4, CollectionNum)
      .Parameters.Append .CreateParameter("OnTop", 3, 1, 4, OnTop)
      .Parameters.Append .CreateParameter("Commended", 3, 1, 4, Commended)
      .Parameters.Append .CreateParameter("Passed", 3, 1, 4, Passed)
      .Parameters.Append .CreateParameter("Hits", 3, 1, 4, Hits)
      .Parameters.Append .CreateParameter("SkinID", 3, 1, 4, SkinID)
      .Parameters.Append .CreateParameter("TemplateID", 3, 1, 4, TemplateID)
      .Parameters.Append .CreateParameter("ArrSetting", 200, 1, 100, ArrSetting)
	  .Execute()
   End With
   If CollectionCmd(0) = 40 Then
      EL_Common.ShowErrorMsg("项目ID错误")
	  Set CollectionCmd = Nothing
	  Exit Sub
   End If 
   EL_Common.ShowScriptError()
   Select Case SaveType
      Case 1: 
	     CollectionID = CollectionCmd(2)
		 Set CollectionCmd = Nothing
		 Response.Redirect "Admin_Collection.asp?Action=Step2&CollectionID="& CollectionID
	  Case 2:
	     Response.Redirect "Admin_Collection.asp?Action=Step3&CollectionID="& CollectionID
	  Case 3:
	     Response.Redirect "Admin_Collection.asp?Action=Step4&CollectionID="& CollectionID
	  Case 4:
	     Response.Redirect "Admin_Collection.asp?Action=Step6&CollectionID="& CollectionID
	  Case 5:
	     Response.Redirect "Admin_Collection.asp?Action=Step2&CollectionID="& CollectionID
	  Case 6:
	     Response.Redirect ComeURL
   End Select
End Sub

Sub Export()
On Error Resume Next
Dim CollectionCmd, rsCollection, RowCount, i
Dim Disabled, ExportStep

ExportStep = EL_Common.ELRequest("ExportStep", 2)

If ExportStep < 2 Then

Call EL_Common.InitCommonCmd(CollectionCmd, rsCollection, "EL_Collection", "CollectionID,CollectionName", "1=1")
rsCollection.Close()
RowCount = CollectionCmd(0)
%>
<script language="javascript">
function CheckAll(){
   var o = getObject("CollectionID");
   for(var i=0;i<o.options.length;i++){
      o.options[i].selected = true;
   }
}
function Check(frm){
   if(frm.CollectionID.value.trim() == "" || frm.CollectionID.selectedIndex == -1){
      alert("请选择需要导出的项目");
	  frm.CollectionID.focus();
	  return false;
   }
   SubmitOnce(frm);
   return;
}
</script>
<form name="myform" action="Admin_Collection.asp" method="post" onSubmit="return Check(this)">
12 3 4 5 下一页
⌨️ 快捷键说明

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