?? collectmanage.asp
字號:
<%
option explicit
response.buffer=true
Dim Rs,RsHistroy,Sql,ErrMsg,channelid,classid,FoundErr,WebName
Dim ProjectID,ProjectNum,iProject,ProjectName,ProjectCollectionTime
Dim CurrentPage,AllPage
Const PerPage=10
%>
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/function.asp"-->
<html>
<head>
<title>通用信息采集系統</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="css/style.css">
<style type="text/css">
<!--
.STYLE1 {
color: #000000;
font-weight: bold;
}
.STYLE2 {color: #FF0000}
-->
</style>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="97%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder">
<tr>
<th height="22" colspan="2" align="center"><span class="STYLE1">采 集 項 目 管 理</span></th>
</tr>
</table>
<table width="97%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder">
<tr>
<td height="30" colspan="2">說明:<br>
①、第一次使用本功能,請修改采集基本設置;<br>
②、采集前請編輯采集項目,測試項目確定無誤后再進行采集。
</td>
</tr>
<tr>
<td width="65" height="30"><strong>管理導航:</strong></td>
<td height="30"><a href="projectmanage.asp">管理首頁</a> | <a href="projectmanage.asp?action=Add_Project">添加項目</a></td>
</tr>
</table>
<br>
<center>
<table border="0" cellpadding="0" cellspacing="0" width="97%" class="tableBorder">
<td width="100%" height="30" valign="middle">
<font color="#FF0000">項目管理</font>
</td>
</tr>
<tr>
<td width="100%" valign="top">
<table border="0" cellspacing="1" width="100%" cellpadding="0" bgcolor="#FFFFFF">
<tr style="padding: 0px 2px;">
<td width="146" align="center">項目名稱</td>
<td width="171" align="center">采集地址</td>
<td width="93" height="22" align="center">所屬頻道</td>
<td width="89" height="22" align="center">所屬欄目</td>
<td width="44" align="center">狀態</td>
<td width="145" height="22" align="center">上次采集</td>
<td width="180" height="22" align="center">操作</td>
</tr>
<%
If Request("page")<>"" then
CurrentPage=Cint(Request("Page"))
Else
CurrentPage=1
End if
Set Rs=server.createobject("adodb.recordset")
Sql="select ProjectID,ProjectName,WebName,ChannelID,ClassID from Project order by ProjectID DESC"
Rs.open Sql,ConnHistroy,1,1
if Not Rs.Eof then
Rs.PageSize=PerPage
Allpage=Rs.PageCount
If Currentpage>Allpage Then Currentpage=1
ProjectNum=Rs.RecordCount
Rs.MoveFirst
Rs.AbsolutePage=CurrentPage
iProject=0
Do While Not Rs.Eof
ProjectID=Rs("ProjectID")
ProjectName=Rs("ProjectName")
WebName=Rs("WebName")
ChannelID=Rs("ChannelID")
ClassID=Rs("ClassID")
%>
<tr onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'" style="padding: 0px 2px;">
<td width="146" align="center"><%=ProjectName%></td>
<td width="171" align="center"><a href="#" target="_bank"><%=WebName%></a></td>
<td width="93" height="22" align="center"><%Call ShowChannel_Name(ChannelID)%></td>
<td width="89" align="center"><%Call ShowClass_Name(ChannelID,ClassID)%></td>
<td width="44" align="center"> <b>
</b> </td>
<td width="145" align="center">
<%
Set RsHistroy=connHistroy.execute("select Top 1 CollectionTime From Histroy Where ProjectID=" & ProjectID & " Order by HistroyID desc")
If Not RsHistroy.Eof Then
ProjectCollectionTime=RsHistroy("CollectionTime")
Else
ProjectCollectionTime=""
End if
Set RsHistroy=Nothing
if ProjectCollectionTime<>"" then
Response.Write ProjectCollectionTime
Else
Response.Write "尚無記錄"
End If
%>
</td>
<td width="180" align="center"><a href="collectstart.asp?ProjectID=<%=ProjectID%>" target="_self">采集</a></td>
</tr>
<%
iProject=iProject+1
If iProject>=PerPage Then Exit Do
Rs.MoveNext
Loop
Else%>
<tr>
<td colspan='9' align="center"><br>
系統中暫無采集項目!</td>
</tr>
<%End If
Rs.Close
Set Rs=Nothing
%>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border" >
<tr>
<td height="22" colspan="2" class="tdbg">
<%
Response.Write ShowPage("collectmanage.asp",ProjectNum,PerPage,True,True," 個項目")
%>
</td>
</tr>
</table>
</center>
</body>
</html>
<%
Call CloseConn()
Call CloseConnHistroy()
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -