📄 collect_itemstart.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_ItemStart
KSCls.Execute()
Set KSCls = Nothing
Class Collect_ItemStart
Private KSCMS
Private KMCObj
Private ConnItem
Private SqlItem, RSObj, Rs, Sql
Private Action, FoundErr, ErrMsg
Private ItemID, ItemName, WebName, ChannelID, ClassID, SpecialID, ListStr, ListPageType, ListPageStr2, ListPageID1, ListPageID2, ListPageStr3, Flag, ItemCollecDate
Private ListUrl
Private AllPage, iItem, ItemNum
Private i, totalPut, CurrentPage, SqlStr
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, "KMCL10002") 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
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/CollectStartFunction.JS""></script>"
Response.Write "</head>"
Response.Write "<body scroll=no topmargin=""0"" leftmargin=""0"" onclick=""SelectElement();"" onkeydown=""GetKeyDown();"" onselectstart=""return false;"">"
Response.Write "<form name=""myform"" method=""POST"" action=""Collect_ItemCollection.asp"">"
Response.Write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" class=""sortbutton"">"
Response.Write " <tr>"
Response.Write " <td height=""25"">"
Response.Write " 采集选项："
Response.Write " <input name=""CollecType"" type=""radio"" id=""radio"" value=""1"" onClick=""javascript:document.myform.Content_View.checked=false"" checked>"
Response.Write "快速模式"
Response.Write "<input name=""CollecType"" type=""radio"" id=""CollecType"" value=""0"" onClick=""javascript:document.myform.Content_View.checked=true"">稳定模式 "
Response.Write " <input name=""CollecTest"" type=""checkbox"" id=""CollecTest"" value=""yes"" onClick=""javascript:document.myform.Content_View.checked=true"" style=""display:none""><input name=""Content_View"" type=""checkbox"" id=""Content_View"" value=""yes"">正文预览 <input type=""hidden"" name=""ItemIDS""><input name=""Action"" type=""hidden"" value=""Start"">"
Response.Write (" </td>")
Response.Write ("</tr>")
Response.Write ("</table>")
Response.Write "<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""1"">"
Response.Write " <tr>"
Response.Write " <td width=""28%"" height=""22"" class=""sort""><div align=""center"">项目名称</div></td>"
Response.Write " <td width=""28%"" class=""sort""><div align=""center""><span>采集(站点)地址</span></div></td>"
Response.Write " <td width=""12%"" align=""center"" class=""sort"">所属系统</td>"
Response.Write " <td width=""12%"" align=""center"" class=""sort"">所属(频道)栏目</td>"
Response.Write " <td width=""15%"" class=""sort""><div align=""center"">上次采集</div></td>"
Response.Write " </tr>"
Set RSObj = Server.CreateObject("ADODB.RecordSet")
RSObj.Open "select * From KS_CollectItem where Flag=True And ChannelDir<>'' And IsNull(ChannelDir)<>True order by ItemID DESC", 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
Response.Write "</table>"
End If
Response.Write "</TABLE>"
Response.Write "</form>"
Response.Write "</body>"
Response.Write "</html>"
End Sub
Sub showContent()
iItem = 0
Do While Not RSObj.EOF
ChannelID = RSObj("ChannelID")
If ChannelID = "" Then
ChannelID = 1
End If
ClassID = RSObj("ClassID")
SpecialID = RSObj("SpecialID")
If ClassID = "" Then
ClassID = 0
End If
If SpecialID = "" Then
SpecialID = 0
End If
ItemID = RSObj("ItemID")
ItemName = RSObj("ItemName")
WebName = RSObj("WebName")
ListPageType = RSObj("ListPageType")
If ListPageType = 0 Or ListPageType = 1 Then
ListUrl = RSObj("ListStr")
ElseIf ListPageType = 2 Then
ListUrl = Replace(RSObj("ListPageStr2"), "{$ID}", CStr(RSObj("ListPageID1")))
ElseIf ListPageType = 3 Then
If InStr(RSObj("ListPageStr3"), "|") > 0 Then
ListUrl = Left(RSObj("ListPageStr3"), InStr(RSObj("ListPageStr3"), "|") - 1)
Else
ListUrl = RSObj("ListPageStr3")
End If
Else
ListUrl = "异常"
End If
Response.Write "<tr>"
Response.Write " <td height='20'> <span ItemID='" & ItemID & "'><img src='../Images/Collect.gif' align='absmiddle'>"
Response.Write " <span style='cursor:default;'>" & ItemName & "</span></span></td>"
Response.Write " <td align='center'><a href='" & ListUrl & "' target='_blank'>" & WebName & "</a></td>"
Response.Write " <td align='center'>" & KMCObj.Collect_ShowChannel_Name(ChannelID) & "</td>"
Response.Write " <td align='center'>" & KMCObj.Collect_ShowClass_Name(ChannelID, ClassID) & "</td>"
Response.Write " <td align='center'>"
'上次采集
Set Rs = ConnItem.Execute("select Top 1 CollecDate From KS_History Where ItemID=" & ItemID & " Order by HistoryID desc")
If Not Rs.EOF Then
ItemCollecDate = Rs("CollecDate")
Else
ItemCollecDate = ""
End If
Set Rs = Nothing
If ItemCollecDate <> "" Then
Response.Write ItemCollecDate
Else
Response.Write "尚无记录"
End If
Response.Write " </td>"
Response.Write "</tr>"
i = i + 1
If i >= MaxPerPage Then Exit Do
RSObj.MoveNext
Loop
RSObj.Close
ConnItem.Close
Response.Write "<tr><td height='26' colspan='6' align='right'>"
Call KSCMS.showpage(totalPut, MaxPerPage, "Collect_ItemStart.asp", True, "条", CurrentPage)
End Sub
End Class
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -