📄 sk_itemfilters.asp
字号:
<%
'================================================================================================
' 软件名称：清风信息自动采集生成系统
' 当前版本：CJ 1.0
' 更新日期：2008-7-18
' 程序版权：龙心数据
' 程序开发：龙心数据开发组
' 演示站点：http://cj.iising.com
' 官方网站：http://www.iising.com QQ：24387481 电话：13719316070
' 郑重声明:
' ①、没有版权,你爱抄抄,爱搬搬,偶看不见!
' ②、不要用黑与白来衡量你我之间的距离,更不要让生活磨灭我们的个性！
' ③、欢迎定做各种信息采集功能系统。
'================================================================================================
%>
<%
option explicit
response.buffer=true
%>
<!--#include file="inc/setup.asp"-->
<!--#include file="inc/cj_cls.asp"-->
<!--#include file="SK_Session.asp"-->
<%
Dim SqlItem,RsItem,Action,ItemID,FilterName,FilterID,FilterObject,FilterType,FilterContent,FisString,FioString,FilterRep,Flag,PublicTf
Dim FoundErr,MaxPerPage,CurrentPage,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 colleclx=1")
if lx=3 then ConnItem.execute("Delete From Filters where colleclx=3")
if lx=5 then ConnItem.execute("Delete From Filters where colleclx=5")
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 "sk_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 5
Call Main(5)'软件
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()
%>
<!--#include file="Admin_ItemFoot.asp"-->
<%sub top()%>
<html>
<head>
<title>采集系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="css/Admin_Style.css">
<SCRIPT language=javascript>
function showset(thisform)
{
if(thisform.FilterType.selectedIndex==1)
{
FilterType1.style.display = "none";
FilterType2.style.display = "";
}
else
{
FilterType1.style.display = "";
FilterType2.style.display = "none";
}
}
</script>
<SCRIPT language=javascript>
function unselectall(thisform)
{
if(thisform.chkAll.checked)
{
thisform.chkAll.checked = thisform.chkAll.checked&0;
}
}
function CheckAll(thisform)
{
for (var i=0;i<thisform.elements.length;i++)
{
var e = thisform.elements[i];
if (e.Name != "chkAll"&&e.disabled!=true)
e.checked = thisform.chkAll.checked;
}
}
//-->
</script>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder">
<tr class='topbg'>
<td height="22" colspan="2" align="center" bgcolor="#F2F2F2" ><strong>采 集 系 统 过 滤 管 理</strong></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder">
<tr bgcolor="#F2F2F2" class="tdbg">
<td width="65" height="30"><strong>管理导航：</strong></td>
<td height="30"><a href=sk_ItemFilters.asp>管理首页</a> | <a href="?Action=add&radiobutton=<%=lx%>">添加新过滤</a></td>
</tr>
</table>
<table width="100%" align="center" border="0" cellspacing="0" cellpadding="0" class="tableBorder">
<tr>
<td height=30 align="center" bgcolor="#F2F2F2"> 选择类型：
<input name="radiobutton" type="radio" value="1" <%if lx =1 then Response.Write "checked" %> onClick="location.href='?radiobutton=1';" >
新闻采集
<input type="radio" name="radiobutton" value="3" <%if lx =3 then Response.Write "checked" %> onClick="location.href='?radiobutton=3';">
图片采集
<input type="radio" name="radiobutton" value="5" <%if lx =5 then Response.Write "checked" %> onClick="location.href='?radiobutton=5';">
软件采集 </td>
</tr>
</table>
<%
end sub
'---------文章列表------------------
Sub Main(lx)
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder" >
<tr>
<td height="22" colspan="2" class="title"> <div align="center"><strong>所 有 记 录</strong></div></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder">
<form name="form1" method="POST" action="?action=del">
<tr class="tdbg" style="padding: 0px 2px;">
<td width="57" height="22" align="center" bgcolor="#EFEFEF" class=ButtonList>选择</td>
<td width="176" align="center" bgcolor="#EFEFEF" class=ButtonList>所属采集项目</td>
<td width="246" align="center" bgcolor="#EFEFEF" class=ButtonList>过滤名称</td>
<td width="114" height="22" align="center" bgcolor="#EFEFEF" class=ButtonList>过滤类型</td>
<td width="134" align="center" bgcolor="#EFEFEF" class=ButtonList>过滤属性</td>
<td width="30" align="center" bgcolor="#EFEFEF" class=ButtonList>状态</td>
<td width="154" height="22" align="center" bgcolor="#EFEFEF" class=ButtonList>操作</td>
</tr>
<%
Set RsItem=server.createobject("adodb.recordset")
SqlItem="select * from Filters where colleclx=" & 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
%>
<tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#cccccc'" style="padding: 0px 2px;">
<td width="57" align="center"> <input type="checkbox" value="<%=RsItem("FilterID")%>" name="FilterID" onClick="unselectall(this.form)" style="border: 0px;background-color: #E1F4EE;"> </td>
<td width="176" align="center">
<%dim rs : set RS=ConnItem.execute("select * from Item where ItemID=" & RsItem("ItemID"))
if rs.eof then
Response.Write("没有项目!")
else
Response.Write RS("ItemName")
end if
rs.close : set rs=nothing%> </td>
<td width="246" align="left"><%=RsItem("FilterName")%></td>
<td width="114" align="center"><%if RsItem("FilterObject")=1 then Response.Write "标题过滤" else Response.Write "正文过滤" end if%></td>
<td align="center"> <%if RsItem("FilterType")=1 then Response.Write "简单替换" else Response.Write "高级替换" end if%></td>
<td width="30" align="center">
<%if RsItem("Flag")=1 then Response.Write "√" else Response.Write "<font color=""#FF0000"">×</font>" end if%>
</td>
<td width="154" align="center">
<%if RsItem("Flag")=0 then Response.Write "<a href=""?Action=flag&flag=1&FilterID="& RsItem("FilterID") &"&radiobutton="& lx &""">启用</a>" else Response.Write "<a href=""?Action=flag&flag=0&FilterID="& RsItem("FilterID") &"&radiobutton="& lx &""">禁用</a>" end if%>
<a href="?Action=edit&FilterID=<%=RsItem("FilterID")%>&radiobutton=<%=lx%>" >编辑</a>
<a href="?Action=del&FilterID=<%=RsItem("FilterID")%>&radiobutton=<%=lx%>" onclick='return confirm("确定要删除此记录吗？");'>删除</a> </td>
</tr>
<%
i_His=i_His+1
If i_His > MaxPerPage Then
Exit Do
End If
RsItem.Movenext
Loop
%>
<tr class="tdbg">
<td colspan=8 height="30">
<input name="Action" type="hidden" id="Action" value="ok">
<input name="radiobutton" type="hidden" id="Action" value="<%=lx%>">
<input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox" style="border: 0px;background-color: #E1F4EE;">
全选 </td>
</tr>
<tr class="tdbg">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -