admin_collection.asp

依蓝旅游网站管理系统Elan2008.SP2

<script language="javascript">function ChangeType(value){
   if(value == 1){
      getObject("TR_Begin").style.display = "";
	  getObject("TR_End").style.display = "";
	  getObject("TR_Content").style.display = "none";
   }else{
      getObject("TR_Begin").style.display = "none";
	  getObject("TR_End").style.display = "none";
	  getObject("TR_Content").style.display = "";
   }
}
function Check(frm){
   if(frm.FliterName.value.trim()==""){
      alert("请输入过滤名称");
	  frm.FliterName.focus();
	  return false;
   }   
   if(frm.FliterType.value.trim()=="0"){
      if(frm.ContentString.value.trim()==""){
	     alert("请输入要过滤内容");
		 frm.ContentString.focus();
		 return false;
	  }
   }else{
      if(frm.BeginString.value.trim()==""){
	     alert("请输入过滤开始标记");
		 frm.BeginString.focus();
		 return false;
	  }
	  if(frm.EndString.value.trim()==""){
	     alert("请输入过滤结束标记");
		 frm.EndString.focus();
		 return false;
	  }
   }
   if(frm.ReplaceString.value.trim()==""){
      alert("请输入替换内容");
	  frm.ReplaceString.focus();
	  return false;
   }
   SubmitOnce(frm);
   return;
}
</script>
<form name="myform" action="Admin_Collection.asp" method="post" onSubmit="return Check(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="19%" class="td_ItemName"><strong>过滤名称</strong></td>
    <td width="81%" class="td_25"><input name="FliterName" type="text" id="FliterName" value="<%=rsFliter("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", rsFliter("CollectionID"), "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" <%=EL_Common.SetObjectSelected(0, rsFliter("FliterObjectType"))%>>标题过滤</option>
      <option value="1" <%=EL_Common.SetObjectSelected(1, rsFliter("FliterObjectType"))%>>正文过滤</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" <%=EL_Common.SetObjectSelected(0, rsFliter("FliterType"))%>>简单替换</option>
      <option value="1" <%=EL_Common.SetObjectSelected(1, rsFliter("FliterType"))%>>高级替换</option>
        </select></td>
  </tr>
  <tr id="TR_Content" style="display:<%If rsFliter("FliterType")=1 Then Response.Write "none"%>">
    <td class="td_ItemName"><strong>过滤内容</strong></td>
    <td class="td_25"><textarea name="ContentString" cols="60" rows="6" id="ContentString"><%If rsFliter("FliterType")=0 Then Response.Write EL_Common.ServerHTMLEncode(rsFliter("BeginString"))%></textarea></td>
  </tr>
  <tr id="TR_Begin" style="display:<%If rsFliter("FliterType")=0 Then Response.Write "none"%>;">
    <td class="td_ItemName"><strong>过滤开始标记</strong></td>
    <td class="td_25"><textarea name="BeginString" cols="60" rows="6" id="BeginString"><%If rsFliter("FliterType")=1 Then Response.Write EL_Common.ServerHTMLEncode(rsFliter("BeginString"))%></textarea></td>
  </tr>
  <tr id="TR_End" style="display:<%If rsFliter("FliterType")=0 Then Response.Write "none"%>;">
    <td class="td_ItemName"><strong>过滤结束标记</strong></td>
    <td class="td_25"><textarea name="EndString" cols="60" rows="6" id="EndString"><%If rsFliter("FliterType")=1 Then Response.Write EL_Common.ServerHTMLEncode(rsFliter("EndString"))%></textarea></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>替换为</strong></td>
    <td class="td_25"><textarea name="ReplaceString" cols="60" rows="6" id="ReplaceString"><%=EL_Common.ServerHTMLEncode(rsFliter("ReplaceString"))%></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" <%=EL_Common.SetObjectChecked("True", rsFliter("Enabled"))%>>
      启用</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="SaveModifyFliter">
      <input name="FliterID" type="hidden" id="FliterID" value="<%=FliterID%>"></td>
  </tr>
</table>
</form>
<%
rsFliter.Close()
Set rsFliter = Nothing
Set FliterCmd = Nothing
EL_Common.ShowScriptError()
End Sub

Sub ManageFliter()
On Error Resume Next
Dim FliterCmd, rsFliter, i, RowCount

Call EL_Common.InitCommonCmd(FliterCmd, rsFliter, "EL_Fliter", "FliterID,FliterName,CollectionID,FliterObjectType,Enabled", "1=1 ORDER BY FliterID DESC")
rsFliter.Close()
RowCount = FliterCmd(0)
CurrentPath = CurrentPath &">> 采集过滤管理"
%>
<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;
  }
  frm.action = "Admin_Collection.asp?Action=DeleteFliter";
  if(confirm("确认要执行选定删除吗？")){
     frm.submit();
	 return;
  }
  return false;
}
function setEnabled(t){
  var frm = getObject("myform");
  var arr = new Array("禁用","启用")
  if(!CheckObject()){
     alert("请至少选定1个项目");
	 return false;
  }
  frm.action = "Admin_Collection.asp?Action=SetFliterEnabled&Enabled="+t;
  if(confirm("确认要"+arr[t]+"选定的过滤吗？")){
     frm.submit();
	 return;
  }
  return false;
}
</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 Check(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td width="8%" align="center" nowrap class="top_25"><strong>选择</strong></td>
    <td width="22%" align="center" nowrap class="top_25"><strong>过滤名称</strong></td>
    <td width="23%" align="center" nowrap class="top_25"><strong>过滤采集项目</strong></td>
    <td width="19%" align="center" nowrap class="top_25"><strong>过滤对象</strong></td>
    <td width="9%" align="center" nowrap class="top_25"><strong>状态</strong></td>
    <td width="19%" align="center" nowrap class="top_25"><strong>操作</strong></td>
  </tr>
  <%
  If RowCount = 0 Then
     Response.Write "<tr><td colspan=6 class=""td_50"" align=""center"">没有任何"& EL_Channel.ItemName &"数据</td></tr>"
  Else
     rsFliter.Open()
     For i = 1 To RowCount
  %>
  <tr class="td_25" onMouseOut="this.className='td_25'" onMouseOver="this.className='MouseOver_25'">
    <td align="center"><input name="CheckObject" type="checkbox" id="CheckObject" value="<%=rsFliter("FliterID")%>"></td>
    <td align="center"><%=EL_Common.ServerHTMLEncode(rsFliter("FliterName"))%></td>
    <td align="center">
	<%
	  If rsFliter("CollectionID") = 0 Then
	     Response.Write "所有采集项目"
	  Else
	     Dim tName
		 tName = EL_Common.GetFieldValue("CollectionName", "EL_Collection", "CollectionID="& rsFliter("CollectionID"))
		 If tName = "" Then
		    Response.Write "<span class='GrayText'>目标采集项目不存在</span>"
		 Else
		    Response.Write EL_Common.ServerHTMLEncode(tName)
		 End If
	  End If
	%>
	</td>
    <td align="center"><%=ArrFliterObjectType(rsFliter("FliterObjectType"))%></td>
    <td align="center"><%=EL_Common.ShowBoolean(rsFliter("Enabled").value, "<b class='GreedText'>√</b>", "<b class='RedText'>×</b>")%></td>
    <td align="center" nowrap>
	<a href="Admin_Collection.asp?Action=ModifyFliter&FliterID=<%=rsFliter("FliterID")%>">修改</a> | 
	<a href="Admin_Collection.asp?Action=DeleteFliter&FliterID=<%=rsFliter("FliterID")%>" onClick="return confirm('确定要删除这条过滤吗')">删除</a> | 
	<% If rsFliter("Enabled") = False Then %>
	<a href="Admin_Collection.asp?Action=SetFliterEnabled&FliterID=<%=rsFliter("FliterID")%>&Enabled=1">启用</a>
	<% Else %>
	<a href="Admin_Collection.asp?Action=SetFliterEnabled&FliterID=<%=rsFliter("FliterID")%>&Enabled=0">禁用</a>
	<% End If %>
	</td>  
  </tr>
  <%
        If i<RowCount Then rsFliter.MoveNext
	 Next
	 rsFliter.Close()
  End If
  %>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td height="50" align="center"><input type="button" name="Submit12" value="删除选定过滤" onClick="doDelete()">
    <input type="button" name="Submit122" value="启用选定过滤" onClick="setEnabled(1)">
    <input type="button" name="Submit123" value="禁用选定过滤" onClick="setEnabled(0)"></td>
  </tr>
</table>
</form>
<%
Set rsFliter = Nothing
Set FliterCmd = Nothing
EL_Common.ShowScriptError()
End Sub

Sub AddFliter()
On Error Resume Next
CurrentPath = CurrentPath &">> 添加采集过滤"
%>
<script language="javascript">
function ChangeType(value){
   if(value == 1){
      getObject("TR_Begin").style.display = "";
	  getObject("TR_End").style.display = "";
	  getObject("TR_Content").style.display = "none";
   }else{
      getObject("TR_Begin").style.display = "none";
	  getObject("TR_End").style.display = "none";
	  getObject("TR_Content").style.display = "";
   }
}
function Check(frm){
   if(frm.FliterName.value.trim()==""){
      alert("请输入过滤名称");
	  frm.FliterName.focus();
	  return false;
   }   
   if(frm.FliterType.value.trim()=="0"){
      if(frm.ContentString.value.trim()==""){
	     alert("请输入要过滤内容");
		 frm.ContentString.focus();
		 return false;
	  }
   }else{
      if(frm.BeginString.value.trim()==""){
	     alert("请输入过滤开始标记");
		 frm.BeginString.focus();
		 return false;
	  }
	  if(frm.EndString.value.trim()==""){
	     alert("请输入过滤结束标记");
		 frm.EndString.focus();
		 return false;
	  }
   }
   if(frm.ReplaceString.value.trim()==""){
      alert("请输入替换内容");
	  frm.ReplaceString.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 Check(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>