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

📄 admin_collection.asp

📁 依蓝旅游网站管理系统Elan2008.SP2
💻 ASP
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
    <td colspan="2" class="top_25"><strong>添加采集过滤</strong></td>
  </tr>
  <tr>
    <td width="19%" class="td_ItemName"><strong>过滤名称</strong></td>
    <td width="81%" class="td_25"><input name="FliterName" type="text" id="FliterName" size="50"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>目标采集项目</strong></td>
    <td class="td_25">
	<select name="CollectionID" id="CollectionID">
	<option value="0">所有采集项目</option>
	<%=EL_Common.Data2Options("EL_Collection", "CollectionID", "CollectionName", 0, "1=1 Order By CollectionID DESC")%>
    </select>
    </td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>过滤对象</strong></td>
    <td class="td_25"><select name="FliterObjectType" id="FliterObjectType">
      <option value="0">标题过滤</option>
      <option value="1">正文过滤</option>
    </select>
    </td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>过滤类型</strong></td>
    <td class="td_25"><select name="FliterType" id="FliterType" onChange="ChangeType(this.value)">
      <option value="0">简单替换</option>
      <option value="1">高级替换</option>
        </select></td>
  </tr>
  <tr id="TR_Content">
    <td class="td_ItemName"><strong>过滤内容</strong></td>
    <td class="td_25"><textarea name="ContentString" cols="60" rows="6" id="ContentString"></textarea></td>
  </tr>
  <tr id="TR_Begin" style="display:none;">
    <td class="td_ItemName"><strong>过滤开始标记</strong></td>
    <td class="td_25"><textarea name="BeginString" cols="60" rows="6" id="BeginString"></textarea></td>
  </tr>
  <tr id="TR_End" style="display:none;">
    <td class="td_ItemName"><strong>过滤结束标记</strong></td>
    <td class="td_25"><textarea name="EndString" cols="60" rows="6" id="textarea7"></textarea></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>替换为</strong></td>
    <td class="td_25"><textarea name="ReplaceString" cols="60" rows="6" id="textarea8"></textarea></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>是否启用</strong></td>
    <td class="td_25"><input name="Enabled" type="checkbox" class="nomargin" id="Enabled" value="1" checked>
      启用</td>
  </tr>
  <tr>
    <td class="td_ItemName">&nbsp;</td>
    <td class="td_50"><input type="submit" name="Submit10" value="添加过滤">
      <input type="button" name="Submit11" value="取消" onClick="history.back()">
      <input name="Action" type="hidden" id="Action" value="SaveNewFliter"></td>
  </tr>
</table>
</form>
<%
EL_Common.ShowScriptError()
End Sub


Sub RunCollection()
On Error Resume Next
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td class="top_25"><strong>采集信息</strong></td>
  </tr>
  <tr>
    <td class="td_25">	
	<%
	   Response.Write "<div id='info' style='height:80px; text-align:center; padding-top:30px;'>正在初始化采集项目……</div>"
	   Response.Flush()
	   Dim CacheName, CollectionCmd, rsCollection, EL_Collection, ListContent, CollectionID, CollectionType
	   CollectionID = EL_Common.ELRequest("CollectionID", 2)
	   CollectionType = EL_Common.ELRequest("CollectionType", 2)
	   Call EL_Common.InitCommonCmd(CollectionCmd, rsCollection, "EL_Collection", "*", "CollectionID="& CollectionID)
	   rsCollection.Close()
	   If CollectionCmd(0) <> 1 Then
	      Set rsCollection = Nothing
		  Set CollectionCmd = Nothing
		  Response.Write "</td></tr></table>"
		  Response.Write "<scr"&"ipt>document.getElementById('info').outerHTML=""<div id=info style='height:100px; text-align:center; padding-top:30px; color:red;'>项目初始化错误：指定项目不存在！<br><br> <input name='' type='button' value=' 返回 ' onClick='history.back()' /></div>""</scr"&"ipt>"
		  Exit Sub
	   End If	   
	   rsCollection.Open()
	   If rsCollection("ChannelID") = 0 Or rsCollection("ChannelID") <> EL_Common.ELClng(EL_Common.GetFieldValue("ChannelID", "EL_Channel", "ChannelID="& rsCollection("ChannelID") &" And Disabled="& EL_False &" And ChannelType=0")) Then
	      EL_Common.ShowErrorMsg("采集项目频道设置错误")
	      Exit Sub
	   Else
	      If rsCollection("ClassID") = 0 Or rsCollection("ClassID") <> EL_Common.ELClng(EL_Common.GetFieldValue("ClassID", "EL_Class", "ClassID="& rsCollection("ClassID") &" AND ChannelID="& rsCollection("ChannelID"))) Then
	         EL_Common.ShowErrorMsg("采集项目栏目设置错误")
	         Exit Sub
	      End If
	   End If
	   CacheName = Request.ServerVariables("REMOTE_ADDR") &"_"& Request.ServerVariables("REMOTE_HOST") &"_"& Request.ServerVariables("REMOTE_USER")	   
	   Application("Collection_"& CacheName) = rsCollection.GetRows()
	   rsCollection.Close()
	   
	   Call EL_Common.InitCommonCmd(CollectionCmd, rsCollection, "EL_Fliter", "*", "Enabled=1 And (CollectionID="& CollectionID &" Or CollectionID=0)")
	   rsCollection.Close()
	   If CollectionCmd(0) = 1 Then
	      rsCollection.Open()		  
	      Application("Fliter_"& CacheName) = rsCollection.GetRows()
		  rsCollection.Close()
	   Else
	      Application("Fliter_"& CacheName) = ""
	   End If	   
	   Set rsCollection = Nothing
	   Set CollectionCmd = Nothing	
	   Conn.Execute("UPDATE EL_Collection SET LastDateTime="& EL_Now &" WHERE CollectionID="& CollectionID)   
	   Response.Write "<scr"&"ipt>document.getElementById('info').innerHTML +=""<br><br><b class='redText'>在采集过程中请不要刷新页面……<br>&nbsp;</b>""</scr"&"ipt>"
	   Response.Write "<meta http-equiv=""refresh"" content=""3;url=Admin_CollectionRun.asp?ChannelID="& Application("Collection_"& CacheName)(41, 0) &"&ListNum=0&PageNum=1&Collection="& CollectionID &"&CollectionType="& CollectionType &""">"
	%>
	</td>
  </tr>
</table>
<%
EL_Common.ShowScriptError()
End Sub

Sub ModifyCollection()
On Error Resume Next
Dim CollectionCmd, rsCollection
Dim CollectionID, ChannelID
ChannelID = EL_Common.ELRequest("ChannelID", 1)
CollectionID = EL_Common.ELRequest("CollectionID", 2)
Call EL_Common.InitCommonCmd(CollectionCmd, rsCollection, "EL_Collection", "CollectionName,Charset,ListURL,ChannelID,ClassID,OnTop,Commended,Passed,Hits,SkinID,TemplateID", "CollectionID="& CollectionID) 
rsCollection.Close()
If CollectionCmd(0) <> 1 Then
   EL_Common.ShowErrorMsg("指定项目不存在")
   Set rsCollection = Nothing
   Set CollectionCmd = Nothing
   Exit Sub
End If
rsCollection.Open()
CurrentPath = ShowCollectionStep(1, CollectionID)
If ChannelID = "" Then 
   ChannelID = rsCollection("ChannelID")
Else
   ChannelID = EL_Common.ELClng(ChannelID)
End If
%>
<script language="javascript">
function CheckStep1(frm){
   if(frm.CollectionName.value.trim()==""){
      alert("请输入项目名称");
	  frm.CollectionName.focus();
	  return false;
   }
   if(frm.ListURL.value.trim()==""){
      alert("请输入网页URL地址");
	  frm.ListURL.focus();
	  return false;
   }
   if(frm.ChannelID.value.trim()==""){
      alert("请选择频道");
	  frm.ChannelID.focus();
	  return false;
   }
   if(frm.ClassID.value.trim()==""){
      alert("请选择栏目");
	  frm.ClassID.focus();
	  return false;
   }
   SubmitOnce(frm);
   return;
}
</script>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td><%=CurrentPath%></td>
  </tr>
</table>
<form name="myform" action="Admin_Collection.asp" method="post" onSubmit="return CheckStep1(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td colspan="2" class="top_25"><strong>采集项目设置</strong></td>
  </tr>
  <tr>
    <td width="18%" class="td_ItemName"><strong>项目名称</strong></td>
    <td width="82%" class="td_25"><input name="CollectionName" type="text" id="CollectionName" value="<%=EL_Common.ServerHTMLEncode(rsCollection("CollectionName"))%>" size="40"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>目标网页编码</strong></td>
    <td class="td_25">
	  <input name="Charset" type="radio" class="nomargin" value="0" <%=EL_Common.SetObjectChecked(0, rsCollection("Charset"))%>>
      GB2312
      <input name="Charset" type="radio" class="nomargin" value="1" <%=EL_Common.SetObjectChecked(1, rsCollection("Charset"))%>>
      UTF-8
      <input name="Charset" type="radio" class="nomargin" value="2" <%=EL_Common.SetObjectChecked(2, rsCollection("Charset"))%>>
      BIG5</td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>网页URL地址</strong></td>
    <td class="td_25"><input name="ListURL" type="text" id="ListURL" value="<%=EL_Common.ServerHTMLEncode(rsCollection("ListURL"))%>" size="70"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>所属频道</strong></td>
    <td class="td_25">
	<select name="ChannelID" id="ChannelID" onChange="location.href='Admin_Collection.asp?Action=<%=Action%>&CollectionID=<%=CollectionID%>&ChannelID='+this.value">
    <option value="0"></option>
	<%=EL_Common.Data2Options("EL_Channel", "ChannelID", "ChannelName", ChannelID, "Disabled=0 And ChannelModule=1 And ChannelType=0")%>
    </select>    </td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>所属栏目</strong></td>
    <td class="td_25">
	<select name="ClassID" id="ClassID">
	<%=EL_Common.Data2Options("EL_Class", "ClassID", "ClassName", rsCollection("ClassID"), "ChannelID="& ChannelID)%>
    </select>    </td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>信息属性</strong></td>
    <td class="td_25"><input name="OnTop" type="checkbox" class="nomargin" id="OnTop" value="1" <%=EL_Common.SetObjectChecked(1, rsCollection("OnTop"))%>>
      固顶
      <input name="Commended" type="checkbox" class="nomargin" id="Commended" value="1" <%=EL_Common.SetObjectChecked(1, rsCollection("Commended"))%>>
      推荐</td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>初始点击数</strong></td>
    <td class="td_25"><input name="Hits" type="text" id="Hits" value="0" size="5" <%=rsCollection("Hits")%>></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>配色风格</strong></td>
    <td class="td_25"><select name="SkinID" id="SkinID">
        <option value="0">使用系统默认</option>
        <%=EL_Common.SkinList(rsCollection("SkinID"))%>
    </select></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>页面模板</strong></td>
    <td class="td_25"><select name="TemplateID" id="TemplateID">
        <option value="0">使用系统默认</option>
        <%=EL_Common.TemplateList(EL_Channel.ChannelID, 3, rsCollection("TemplateID"))%>
    </select></td>
  </tr>
  
  <tr>
    <td class="td_ItemName"><strong>审核</strong></td>
    <td class="td_25"><span style="float:left;">
      <input name="Passed" type="radio" class="nomargin" value="1" <%=EL_Common.SetObjectChecked(1, rsCollection("Passed"))%>>
是
<input name="Passed" type="radio" class="nomargin" value="0" <%=EL_Common.SetObjectChecked(0, rsCollection("Passed"))%>>
否</span></td>
  </tr>
  <tr>
    <td class="td_ItemName"></td>
    <td class="td_50"><input type="submit" name="Submit2" value="下一步">
      <input name="Action" type="hidden" id="Action" value="SaveModify">
      <input name="CollectionID" type="hidden" id="CollectionID" value="<%=CollectionID%>"></td>
  </tr>
</table>
</form>
<%
rsCollection.Close()
Set rsCollection = Nothing
Set CollectionCmd = Nothing
EL_Common.ShowScriptError()
End Sub

Sub ManageCollection()
On Error Resume Next
Dim CollectionCmd, rsCollection, i, RowCount, EL_Encode
Dim ArrCollectionStatus(1)
ArrCollectionStatus(0) = "<b class=redtext>×</b>"
ArrCollectionStatus(1) = "<b class=Greentext>√</b>"
Call EL_Common.InitCommonCmd(CollectionCmd, rsCollection, "EL_Collection", "CollectionID,CollectionName,Status,LastDateTime,ChannelID,ClassID", "1=1 ORDER BY CollectionID DESC")
rsCollection.Close()
RowCount = CollectionCmd(0)
%>
<script language="javascript">
function CheckedAll(){
  for (var i=0;i<document.myform.elements.length;i++){
    var e = document.myform.elements[i];
    if (e.type == 'checkbox' && e.name=='CheckObject' && e.disabled == false){
       e.checked = true;
    }
  }
  getObject("myselect").innerHTML = "[<a href='javascript:CancelAll()'>取消</a>]";
}
function CancelAll(){
  for (var i=0;i<document.myform.elements.length;i++){
    var e = document.myform.elements[i];
    if (e.type == 'checkbox' && e.name=='CheckObject' && e.disabled == false){
       e.checked = false;
    }
  }
  getObject("myselect").innerHTML = "[<a href='javascript:CheckedAll()'>全选</a>]";
}
function CheckObject(){
   var frm = getObject("myform");
   for (var i=0;i<frm.elements.length;i++){
    var e = frm.elements[i];
    if (e.type == 'checkbox' && e.name=='CheckObject' && e.disabled == false && e.checked == true ){
       return true
    }
  }
  return false;
}
function Check(frm){
  SubmitOnce(frm);
  return true;
}
function doDelete(){
  var frm = getObject("myform");
  if(!CheckObject()){
     alert("请至少选定1个项目");
	 return false;
  }
12345

⌨️ 快捷键说明

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