<% Dim SqlItem,RsItem,Action,ItemID,FilterName,FilterID,FilterObject,FilterType,FilterContent,FisString,FioString,FilterRep,Flag,PublicTf Dim MaxPerPage,AllPage,HistrolyNum,i_His,lx,DelFlag Action=Trim(Request("Action")) lx=Request("radiobutton") FilterID=Trim(Request("FilterID")) DelFlag=Trim(Request.Form("DelFlag")) MaxPerPage=20 If lx="" or lx=0 then lx=1 Call top() Select Case Action Case "add" If Trim(Request.Form("Saveok"))="ok" then Call Save_Data Else Call add_edit(1) End if Case "edit" If Trim(Request.Form("Saveok"))="ok" then Call Save_Data Else Call add_edit(2) End if Case "flag" flag=Trim(Request("flag")) ConnItem.execute("update Filters set flag="& flag &" where FilterID="&FilterID ) response.redirect request.ServerVariables("HTTP_REFERER")''返回来源页面有刷新 Case "del" Select Case DelFlag Case "删除所选记录" Response.Write("sadfsadfasdfasdfasfasfd") if FilterID<>"" then ConnItem.execute("Delete From Filters Where FilterID in(" & FilterID & ")") end if Case "删除全部记录" if lx=1 then ConnItem.execute("Delete From Filters where ModuleID=1") if lx=2 then ConnItem.execute("Delete From Filters where ModuleID=2") if lx=3 then ConnItem.execute("Delete From Filters where ModuleID=3") Case Else if FilterID<>"" then ConnItem.execute("Delete From Filters Where FilterID in(" & FilterID & ")") response.redirect request.ServerVariables("HTTP_REFERER")''返回来源页面有刷新 end if End Select Response.Redirect "Admin_ItemFilters.asp?radiobutton="& lx Case Else Select Case lx case 1 Call Main(1)'新闻 Call Show_Page case 3 Call Main(3)'图片 Call Show_Page case 2 Call Main(2)'软件 Call Show_Page case 6 Call Main(6)'自定 Call Show_Page case else Call Main(1) Call Show_Page end select End select '关闭数据库链接 Call CloseConnItem() footer sub top() header %>

采 集 系 统 过 滤 管 理

管理导航：

管理首页 | 添加新过滤

选择类型： onClick="location.href='?radiobutton=1';" > 新闻采集 onClick="location.href='?radiobutton=2';"> 软件采集 onClick="location.href='?radiobutton=3';"> 图片采集

<% end sub '---------文章列表------------------ Sub Main(lx) %>

所 有 记 录

<% Set RsItem=server.createobject("adodb.recordset") SqlItem="select * from Filters where ModuleID=" & lx If Request("page")<>"" then CurrentPage=Cint(Request("Page")) Else CurrentPage=1 End if SqlItem=SqlItem & " order by FilterID DESC" RsItem.open SqlItem,ConnItem,1,1 If (Not RsItem.Eof) and (Not RsItem.Bof) then RsItem.PageSize=MaxPerPage Allpage=RsItem.PageCount If Currentpage>Allpage Then Currentpage=1 HistrolyNum=RsItem.RecordCount RsItem.MoveFirst RsItem.AbsolutePage=CurrentPage i_His=0 Do While not RsItem.Eof %> <% i_His=i_His+1 If i_His > MaxPerPage Then Exit Do End If RsItem.Movenext Loop %> <%Else%> <%End If%> <% RsItem.Close Set RsItem=nothing %>

选择	所属采集项目	过滤名称	过滤类型	过滤属性	状态	操作
" name="FilterID" onClick="unselectall(this.form)">	<%dim rs : set RS=ConnItem.execute("select * from Item where ItemID=" & RsItem("ItemID")) Response.Write RS("ItemName") : rs.close : set rs=nothing%>	<%=RsItem("FilterName")%>	<%if RsItem("FilterObject")=1 then Response.Write "标题过滤" else Response.Write "正文过滤" end if%>	<%if RsItem("FilterType")=1 then Response.Write "简单替换" else Response.Write "高级替换" end if%>	<%if RsItem("Flag")=1 then Response.Write "√" else Response.Write "×" end if%>	<%if RsItem("Flag")=0 then Response.Write "启用" else Response.Write "禁用" end if%>  &radiobutton=<%=lx%>" >编辑   &radiobutton=<%=lx%>" onclick='return confirm("确定要删除此记录吗？");'>删除
全选
系统中暂无记录！

<%End Sub '----------显示“上一页 下一页”等信息----------- sub Show_Page() %>

<% Response.Write Cl.ShowPage("Admin_ItemFilters.asp?Action="& Action,HistrolyNum,MaxPerPage,"个","记录") %>

<%end sub '--------------过滤添加和编辑-------------- sub add_edit(Type_1) If Type_1=2 then Call Test %>

" name="form1">

<% if Type_1=1 then Response.Write "添 加 过 滤" else Response.Write "编 辑 过 滤" end if %>
过滤名称：
所属项目：	<%Call Admin_ShowItem_Option(ItemID,lx)%>
过滤对象：	>标题过滤 >正文过滤
过滤类型：	>简单替换 >高级过滤
使用状态：	>禁用 >启用

">

内容：	<%=FilterContent%>

">

开始标记：	<%=FisString%>
结束标记：	<%=FioString%>

替换：	<%=FilterRep%>

<% End Sub Sub Save_Data FilterID=Trim(Request("FilterID")) FilterName=Trim(Request.Form("FilterName")) ItemID=Trim(Request.Form("ItemID")) FilterObject=Trim(Request.Form("FilterObject")) FilterType=Trim(Request.Form("FilterType")) FilterContent=Request.Form("FilterContent") FisString=Request.Form("FisString") FioString=Request.Form("FioString") FilterRep=Request.Form("FilterRep") Flag=Trim(Request.Form("Flag")) 'PublicTf=Trim(Request.Form("PublicTf")) If Action<>"edit" and Action<>"add" then exit sub If Action="edit" then If FilterID="" Then FoundErr=True ErrMsg=ErrMsg & "

参数错误！请从有效链接进入

" Else FilterID=Clng(FilterID) End If End If If FilterName="" Then FoundErr=True ErrMsg=ErrMsg & "

过滤名称不能为空

" End If If ItemID="" Then FoundErr=True ErrMsg=ErrMsg & "

请选择过滤所属项目

" Else ItemID=Clng(ItemID) If ItemID=0 Then FoundErr=True ErrMsg=ErrMsg & "

请选择过滤所属项目

" End If End If If FilterObject="" Then FoundErr=True ErrMsg=ErrMsg & "

请选择过滤对象

" Else FilterObject=Clng(FilterObject) End If If FilterType="" Then FoundErr=True ErrMsg=ErrMsg & "

请选择过滤类型

" Else FilterType=Clng(FilterType) If FilterType=1 Then If FilterContent="" Then FoundErr=True ErrMsg=ErrMsg & "

过滤的内容不能为空

" End If ElseIf FilterType=2 Then If FisString="" or FioString="" Then FoundErr=True ErrMsg=ErrMsg & "

开始/结束标记不能为空

" End If Else FoundErr=True ErrMsg=ErrMsg & "

参数错误，请从有效链接进入

" End If End If If FoundErr<>True Then if Action="add" then SqlItem ="select top 1 * from Filters" else SqlItem ="select top 1 * from Filters Where FilterID=" & FilterID end if Set RsItem=server.CreateObject("adodb.recordset") RsItem.open SqlItem,ConnItem,2,3 if Action="add" then RsItem.addnew RsItem("FilterName")=FilterName RsItem("ItemID")=ItemID RsItem("FilterObject")=FilterObject RsItem("FilterType")=FilterType If FilterType=1 Then RsItem("FilterContent")=FilterContent ElseIf FilterType=2 Then RsItem("FisString")=FisString RsItem("FioString")=FioString End If RsItem("FilterRep")=FilterRep RsItem("Flag")=Flag RsItem("ModuleID")=lx 'RsItem("PublicTf")=PublicTf RsItem.Update RsItem.Close Set RsItem=Nothing Response.Redirect "Admin_ItemFilters.asp?radiobutton=" &lx Else Call Admin_ShowErr(ErrMsg) End If End Sub Sub Test Set RsItem=server.createobject("adodb.recordset") SqlItem="select * from Filters Where FilterID=" & FilterID RsItem.open SqlItem,ConnItem,1,1 If Not RsItem.Eof Then ItemID=RsItem("ItemID") FilterName=RsItem("FilterName") FilterObject=RsItem("FilterObject") FilterType=RsItem("FilterType") FilterContent=RsItem("FilterContent") FisString=RsItem("FisString") FioString=RsItem("FioString") FilterRep=RsItem("FilterRep") Flag=RsItem("Flag") 'PublicTf=RsItem("PublicTf") Else FoundErr=True ErrMsg=ErrMsg & "
参数错误，找不到该项目" End If RsItem.Close Set RsItem=Nothing End Sub %>