collect_itemfilters.asp

来自「SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括h」· ASP 代码 · 共 247 行

ASP
247 行
字号 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="../../Conn.asp"-->
<!--#include file="../../SysCls/KS_CommonCls.asp"-->
<!--#include file="../../SysCls/KS_CollectCommonCls.asp"-->
<!--#include file="../Inc/Session.asp"-->
<%
'===================================================================================================================
'软件名称：科汛网站管理系统
'当前版本：科汛网站管理系统 V2.2 0628个人Access版
'Copyright (C) 2006-2008 Kesion.Com  All rights reserved.
'产品咨询QQ：9537636,41904294
'技术支持QQ：111394,54004407 
'程序版权：科汛网络
'程序开发：科汛网络开发组（总策划：林文仲）
'E-Mail  :kesioncms@hotmail.com webmaster@kesion.com
'官方网站：http://www.kesion.com  
'演示站点：http://test.kesion.com 
'郑重声明:
'    ①、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
'    ②、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
'    ③、科汛网络保留此软件的法律追究权利
'===================================================================================================================
Dim KSCls
Set KSCls = New Collect_ItemFilters
KSCls.Execute()
Set KSCls = Nothing

Class Collect_ItemFilters
        Private KSCMS
		Private KMCObj
		Private ConnItem
		Private i, totalPut, CurrentPage, SqlStr
		Private SqlItem, RSObj
		Private Action, FoundErr, ErrMsg
		Private FilterID, ItemID, FilterName, FilterObject, FilterType, Flag, PublicTf, FlagName
		Private AllPage, iItem, ItemNum
		Private MaxPerPage
		Private Sub Class_Initialize()
		  MaxPerPage = 20
		  Set KSCMS=New CommonCls
		  Set KMCObj=New CollectCommonCls
		  Set ConnItem = KSCMS.ConnItem()
		End Sub
        Private Sub Class_Terminate()
		 Call KSCMS.CloseConnItem()
		 Call KSCMS.Closeconn
		 Set KSCMS=Nothing
		 Set KMCObj=Nothing
		End Sub
		Sub Execute()
		If Not KSCMS.ReturnPowerResult(0, "KMCL10003") Then
		  Response.Write ("<script>parent.frames['BottomFrame'].location.href='javascript:history.back();';</script>")
		  Call KSCMS.ReturnErr(1, "")
		End If
		
		If Request("page") <> "" Then
			  CurrentPage = CInt(Request("page"))
		Else
			  CurrentPage = 1
		End If
		
		Action = Request("Action")
		If Action = "SetFlag" Then
		   Call SetFlag
		End If
		If FoundErr = True Then
		   Call KMCObj.WriteErrMsg(ErrMsg)
		Else
		   Call Main
		End If
		End Sub
		Sub Main()
		Response.Write "<html>"
		Response.Write "<head>"
		Response.Write "<title>采集系统</title>"
		Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
		Response.Write "<link rel=""stylesheet"" type=""text/css"" href=""../inc/Admin_Style.css"">"
		Response.Write "<script language=""JavaScript"">"
		Response.Write "var Page='" & CurrentPage & "';"
		Response.Write "</script>"
		Response.Write "<script language=""JavaScript"" src=""../JS/Common.js""></script>"
		Response.Write "<script language=""JavaScript"" src=""../JS/ContextMenu.js""></script>"
		Response.Write "<script language=""JavaScript"" src=""../JS/SelectElement.js""></script>"
		Response.Write "<script language=""JavaScript"" src=""../Common/CollectFiltersFunction.JS""></script>"
		Response.Write "</head>"
		Response.Write "<body scroll=no topmargin=""0"" leftmargin=""0"" onclick=""SelectElement();"" onkeydown=""GetKeyDown();"" onselectstart=""return false;"">"
		
		Response.Write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" class=""sortbutton"">"
		Response.Write "  <tr>"
		Response.Write "    <td height=""23"">"
			   
			   Response.Write "<input class=""buttonstyle"" name=""VerificFolder"" title=""添加新过滤"" type=""button"" value=""添加过滤"" onclick=""CreateFilters();"" >"
			   Response.Write "<input class=""buttonstyle"" name=""CreateFolder""  title=""编辑过滤"" type=""button"" value=""编辑过滤"" onclick='EditFilters();'>"
			   Response.Write "<input class=""buttonstyle"" name=""VerificFolder"" title=""删除过滤"" type=""button"" value=""删除过滤"" onclick=""DelFilters();"" >"
			  
			Response.Write ("   </td>")
			Response.Write ("</tr>")
			Response.Write ("</table>")
		
		Response.Write "<table class=""border"" border=""0"" cellspacing=""1"" width=""100%"" cellpadding=""0"">"
		Response.Write "        <TBODY>"
		Response.Write "        <TR>"
		Response.Write "          <TD  class=""sort"" width=""33%"" height=22>"
		Response.Write "          <DIV align=center>过滤名称</DIV></TD>"
		Response.Write "          <TD  class=""sort"" width=""24%"" height=22>"
		Response.Write "          <DIV align=center>所属项目</DIV></TD>"
		 Response.Write "         <TD  class=""sort"" width=""13%"" height=22>"
		 Response.Write "         <DIV align=center>过滤对象</DIV></TD>"
		 Response.Write "         <TD  class=""sort"" width=""17%"" height=22>"
		 Response.Write "         <DIV align=center>过滤类型</div></TD>"
		  Response.Write "        <TD  class=""sort"" width=""13%"" height=22>"
			Response.Write "      <DIV align=center>状态</div></TD>"
		
		If Request("page") <> "" Then
			CurrentPage = CInt(Request("Page"))
		Else
			CurrentPage = 1
		End If
		Set RSObj = Server.CreateObject("adodb.recordset")
		SqlItem = "select * From KS_Filters order by FilterID DESC"
		RSObj.Open SqlItem, ConnItem, 1, 1
		If Not RSObj.EOF Then
					totalPut = RSObj.RecordCount
		
							If CurrentPage < 1 Then
								CurrentPage = 1
							End If
		
							If (CurrentPage - 1) * MaxPerPage > totalPut Then
								If (totalPut Mod MaxPerPage) = 0 Then
									CurrentPage = totalPut \ MaxPerPage
								Else
									CurrentPage = totalPut \ MaxPerPage + 1
								End If
							End If
		
							If CurrentPage = 1 Then
								Call showContent
							Else
								If (CurrentPage - 1) * MaxPerPage < totalPut Then
									RSObj.Move (CurrentPage - 1) * MaxPerPage
									Call showContent
								Else
									CurrentPage = 1
									Call showContent
								End If
							End If
			End If
		 RSObj.Close
		
		Response.Write "</table>"
		Response.Write "</body>"
		Response.Write "</html>"
		End Sub
		
		Sub SetFlag()
		   FilterID = Trim(Request("FilterID"))
		   FlagName = Trim(Request("FlagName"))
		   If FilterID <> "" Then
			  FilterID = Replace(FilterID, " ", "")
		   Else
			  FoundErr = True
			  ErrMsg = ErrMsg & "<br><li>请选择要执行操作的记录！</li>"
		   End If
		   If FoundErr <> True Then
			  Select Case FlagName
			  Case "Del"
				 SqlItem = "Delete From KS_Filters Where FilterID In(" & FilterID & ")"
			  Case "Public"
				 SqlItem = "Update KS_Filters set PublicTf=Not PublicTf Where FilterID In(" & FilterID & ")"
			  Case "Passed"
				 SqlItem = "Update KS_Filters set Flag=Not Flag Where FilterID In(" & FilterID & ")"
			  End Select
			  ConnItem.Execute (SqlItem)
		   End If
		End Sub
		Sub showContent()
		 iItem = 0
		   Do While Not RSObj.EOF
			  FilterID = RSObj("FilterID")
			  ItemID = RSObj("ItemID")
			  FilterName = RSObj("FilterName")
			  FilterObject = RSObj("FilterObject")
			  FilterType = RSObj("FilterType")
			  Flag = RSObj("Flag")
			  PublicTf = RSObj("PublicTf")
		
		   Response.Write "     <TR>"
		   Response.Write "       <TD>"
				
				   Response.Write "<span  FilterID='" & FilterID & "'><img src='../Images/Filter.gif'  align='absmiddle'>"
				   Response.Write "  <span style='cursor:default;'>" & FilterName & "</span></span>"
				  
				 Response.Write " </TD>"
				 Response.Write " <TD align=""center"">" & KMCObj.Collect_ShowItem_Name(ItemID, ConnItem)
				 Response.Write " </TD>"
				 Response.Write " <TD  align=""center"">"
				  
				  If FilterObject = 1 Then
					 Response.Write "标题过滤"
				  ElseIf FilterObject = 2 Then
					 Response.Write "正文过滤"
				  Else
					 Response.Write "<font color=red>没有选择！</font>"
				  End If
				  
				 Response.Write " </TD>"
				 Response.Write " <TD align=""center"">"
				  
				  If FilterType = 1 Then
					 Response.Write "简单替换"
				  ElseIf FilterType = 2 Then
					 Response.Write "高级过滤"
				  Else
					 Response.Write "<font color=red>没有选择！</font>"
				  End If
				 
				 Response.Write " </TD>"
				 Response.Write " <TD align=""center"">"
				 
					If Flag = False Then
						Response.Write "<span style=""color:red;cursor:hand"" onclick=""location.href='Collect_ItemFilters.asp?Action=SetFlag&FlagName=Passed&Page=" & CurrentPage & "&FilterID=" & FilterID & "';"">禁用</span>"
					Else
					  Response.Write "<span style=""cursor:hand"" onclick=""location.href='Collect_ItemFilters.asp?Action=SetFlag&FlagName=Passed&Page=" & CurrentPage & "&FilterID=" & FilterID & "';"">启用</span>"
					End If
					
					 Response.Write ("&nbsp;")
		
					If PublicTf = True Then
					   Response.Write "<span style=""color:red;cursor:hand"" onclick=""location.href='Collect_ItemFilters.asp?Action=SetFlag&FlagName=Public&Page=" & CurrentPage & "&FilterID=" & FilterID & "';"">公有</span>"
					Else
					   Response.Write "<span style=""cursor:hand"" onclick=""location.href='Collect_ItemFilters.asp?Action=SetFlag&FlagName=Public&Page=" & CurrentPage & "&FilterID=" & FilterID & "';"">私有</span>"
					End If
				  
			   Response.Write "   </TD>"
			   Response.Write " </TR>"
			iItem = iItem + 1
			  If iItem >= MaxPerPage Then Exit Do
			  RSObj.MoveNext
		   Loop
		   Response.Write "<tr><td colspan=5 align=right>"
			Call KSCMS.showpage(totalPut, MaxPerPage, "Collect_ItemFilters.asp", True, "条", CurrentPage)
			Response.Write "</td></tr>"
		End Sub
End Class
%>

collect_itemfilters.asp - 源码说明

本页面展示了「SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件. 」中的 collect_itemfilters.asp 源码文件，采用 ASP 编程语言编写，共 247 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与shtml相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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