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

📄 collect_itemhistory.asp

📁 SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.
💻 ASP
字号:
🔍 
<%@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_ItemHistory
KSCls.Execute()
Set KSCls = Nothing

Class Collect_ItemHistory
        Private KSCMS
		Private KMCObj
		Private ConnItem
		Private i, totalPut, CurrentPage, SqlStr
		Private Rs, Sql, SqlItem, RSObj, Action, FoundErr, ErrMsg
		Private HistoryID, ItemID, ChannelID, ClassID, SpecialID, ArticleID, Title, CollecDate, NewsUrl, Result
		Private Arr_History, Arr_ArticleID, i_Arr, Del, Flag
		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
		FoundErr = False
		Action = Trim(Request("Action"))
		If FoundErr <> True Then
		   Call Main
		Else
		   Call KMCObj.WriteErrMsg(ErrMsg)
		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/CollectHistoryFunction.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=""25"">"
			   
			   Response.Write "<input class=""buttonstyle"" name=""CreateFolder""  title=""全部记录"" type=""button"" value=""全部记录"" onclick='location.href=""Collect_ItemHistory.asp"";'>"
			   Response.Write "<input class=""buttonstyle"" name=""CreateFolder""  title=""成功记录"" type=""button"" value=""成功记录"" onclick='location.href=""Collect_ItemHistory.asp?Action=Succeed"";'>"
			   Response.Write "<input class=""buttonstyle"" name=""VerificFolder"" title=""失败记录"" type=""button"" value=""失败记录"" onclick=""location.href='Collect_ItemHistory.asp?Action=Failure';"" >"
			 
			Response.Write ("   </td>")
			Response.Write ("</tr>")
			Response.Write ("</table>")
									
		Set RSObj = Server.CreateObject("adodb.recordset")
		SqlItem = "select * From KS_History"
		If Action = "Succeed" Then
		   SqlItem = SqlItem & " Where  Result=True"
		   Flag = "成 功 记 录"
		ElseIf Action = "Failure" Then
		   SqlItem = SqlItem & " Where  Result=False"
		   Flag = "失 败 记 录"
		Else
		   Flag = "所 有 记 录"
		End If
		
		Response.Write "  <table class=""border"" border=""0"" cellspacing=""1"" width=""100%"" cellpadding=""0"">"
		Response.Write "     <tr style=""padding: 0px 2px;"">"
		Response.Write "      <td width=""435"" height=""22"" align=""center"" class=sort>标题</td>"
		Response.Write "      <td width=""214"" align=""center"" class=sort>项目名称</td>"
		Response.Write "      <td width=""123"" height=""22"" align=""center"" class=sort>所属系统</td>"
		Response.Write "      <td width=""120"" height=""22"" align=""center"" class=sort>(频道)栏目</td>"
		Response.Write "      <td width=""126"" align=""center"" class=sort>来源</td>"
		 Response.Write "     <td width=""87"" align=""center"" class=sort>结果</td>"
		 Response.Write "    </tr>"
		
		If Request("page") <> "" Then
			CurrentPage = CInt(Request("Page"))
		Else
			CurrentPage = 1
		End If
		SqlItem = SqlItem & " order by HistoryID 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
		
			
		Response.Write "</table>"
		Response.Write "</body>"
		Response.Write "</html>"
		End Sub
		Sub showContent()
		 Do While Not RSObj.EOF
			 Response.Write ("<tr>")
			 Response.Write (" <td width=""435"" height=""18"">          ")
				Response.Write "<span  HistoryID='" & RSObj("HistoryID") & "'><img src='../Images/folder/TheSmallWordNews1.gif'  align='absmiddle'>"
				  Response.Write "  <span style='cursor:default;'>" & KSCMS.GotTopic(RSObj("Title"), 42) & "</span></span>"
			  Response.Write ("</td> ")
			  Response.Write ("<td width=""214"" align=""center"">" & KMCObj.Collect_ShowItem_Name(RSObj("ItemID"), ConnItem) & "</td>")
			  Response.Write ("<td width=""123"" align=""center"">" & KMCObj.Collect_ShowChannel_Name(RSObj("ChannelID")) & "</td>")
			  Response.Write ("<td width=""120"" align=""center"">" & KMCObj.Collect_ShowClass_Name(RSObj("ChannelID"), RSObj("ClassID")) & "</td>")
			  Response.Write ("<td width=""126"" align=""center""><a href=""" & RSObj("NewsUrl") & """ target=""_blank"" title=""" & RSObj("NewsUrl") & """>点击访问</a></td>")
			  Response.Write (" <td width=""87"" align=""center"">")
			  If RSObj("Result") = True Then
				   Response.Write "<font color=red>成功</font>"
				ElseIf RSObj("Result") = False Then
				   Response.Write "<font color=red>失败</font>"
				Else
				   Response.Write "<font color=red>异常</font>"
				End If
			  Response.Write (" </td></tr> ")
				   i = i + 1
				   If i >=MaxPerPage Then
					  Exit Do
				   End If
				RSObj.MoveNext
		   Loop
		RSObj.Close
		Set RSObj = Nothing
			Response.Write ("<tr><td height=""22"" colspan=""6"" align=""right"">")
		 Call KSCMS.ShowPageParamter(totalPut, MaxPerPage, "Collect_ItemHistory.asp", True, "条", CurrentPage, "Action=" & Action)
		   Response.Write ("</td></tr>")
		End Sub
End Class
%>

⌨️ 快捷键说明

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