📄 collect_main.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_Main
KSCls.Execute()
Set KSCls = Nothing
Class Collect_Main
Private KSCMS
Private KMCObj
Private ConnItem
'=================================================================================================
Private i
Private totalPut
Private CurrentPage
Private SqlStr
Private RSObj
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, "KMCL10001") 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 "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
Response.Write "<title>采集项目管理</title>"
Response.Write "<link href=""../Inc/Admin_Style.css"" rel=""stylesheet"" type=""text/css"">"
Response.Write "<script language=""JavaScript"">" & vbCrLf
Response.Write "var Page='" & CurrentPage & "';" & vbCrLf
Response.Write "</script>" & vbCrLf
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/CollectFunction.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=""CreateCollectItem();"" >"
Response.Write "<input class=""buttonstyle"" name=""CreateFolder"" title=""编辑采集项目"" type=""button"" value=""编辑项目"" onclick='EditCollectItem();'>"
Response.Write "<input class=""buttonstyle"" name=""VerificFolder"" title=""删除采集项目"" type=""button"" value=""删除项目"" onclick=""DelCollectItem();"" >"
Response.Write "<input class=""buttonstyle"" name=""channeldel"" title=""属性设置"" type=""button"" value=""属性设置"" onclick=""SetCollectItemPro()"">"
Response.Write "<input class=""buttonstyle"" title=""测试采集项目是否有效"" type=""button"" name=""Submit"" value=""项目测试"" onClick=""TestCollectItem();"">"
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 " <td width=""5%"" align=""center"" class=""sort"">状态</td>"
Response.Write " </tr>"
Set RSObj = Server.CreateObject("ADODB.RecordSet")
RSObj.Open "select ItemID,ItemName,WebName,ListStr,ListPageType,ListPageStr2,ListPageID1,ListPageID2,ListPageStr3,ChannelID,ClassID,SpecialID,Flag From KS_CollectItem 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
End If
Response.Write ("</table>")
Response.Write ("</body>")
Response.Write ("</html>")
End Sub
Sub showContent()
Dim Rs, ItemCollecDate
Dim ItemID, ItemName, WebName, ChannelID, ClassID, SpecialID, ListStr, ListPageType, ListPageStr2, ListPageID1, ListPageID2, ListPageStr3, Flag, ListUrl
Do While Not RSObj.EOF
ItemID = RSObj("ItemID")
ItemName = RSObj("ItemName")
WebName = RSObj("WebName")
ChannelID = RSObj("ChannelID")
ClassID = RSObj("ClassID")
SpecialID = RSObj("SpecialID")
ListStr = RSObj("ListStr")
ListPageType = RSObj("ListPageType")
ListPageStr2 = RSObj("ListPageStr2")
ListPageID1 = RSObj("ListPageID1")
ListPageID2 = RSObj("ListPageID2")
ListPageStr3 = RSObj("ListPageStr3")
Flag = RSObj("Flag")
If ListPageType = 0 Or ListPageType = 1 Then
ListUrl = ListStr
ElseIf ListPageType = 2 Then
ListUrl = Replace(ListPageStr2, "{$ID}", CStr(ListPageID1))
ElseIf ListPageType = 3 Then
If InStr(ListPageStr3, "|") > 0 Then
ListUrl = Left(ListPageStr3, InStr(ListPageStr3, "|") - 1)
Else
ListUrl = ListPageStr3
End If
End If
Response.Write "<tr>"
Response.Write " <td height='20'> <span ondblclick='EditCollectItem()' 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 " <td align='center'>"
'状态
If Flag = True Then
Response.Write "√"
Else
Response.Write "<font color=red>×</font>"
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_Main.asp", True, "条", CurrentPage)
End Sub
End Class
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -