📄 collecting.asp
字号:
<% Option Explicit %>
<%
Response.Buffer = true
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
%>
<!--#include file="../../../Inc/Const.asp" -->
<!--#include file="../../../Inc/Cls_DB.asp" -->
<!--#include file="inc/Function.asp" -->
<!--#include file="inc/Config.asp" -->
<!--#include file="../../../Inc/Function.asp" -->
<%
'==============================================================================
'软件名称：风讯网站信息管理系统
'当前版本：Foosun Content Manager System(FoosunCMS V3.2SP1)
'最新更新：2006.50
'==============================================================================
'Copyright (C) 2002-2004 Foosun.Net All rights reserved.
'商业注册联系：028-85098980-601,项目开发：028-85098980-606、609,客户支持：608
'产品咨询QQ：394226379,159410,125114015
'技术支持QQ：315485710,66252421
'项目开发QQ：415637671，655071
'程序开发：四川风讯科技发展有限公司(Foosun Inc.)
'Email:service@Foosun.cn
'MSN：skoolls@hotmail.com
'论坛支持：风讯在线论坛(http://bbs.foosun.net)
'官方网站：www.Foosun.cn 演示站点：test.cooin.com
'网站通系列(智能快速建站系列)：www.ewebs.cn
'==============================================================================
'免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接
'风讯公司保留此程序的法律追究权利
'如需进行2次开发，必须经过风讯公司书面允许。否则将追究法律责任
'==============================================================================
Dim DBC,Conn,CollectConn
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
DBC.ConnStr = CollectDBConnectionStr
Set CollectConn = DBC.OpenConnection()
Set DBC = Nothing
%>
<!--#include file="../../../Inc/Session.asp" -->
<!--#include file="../../../Inc/CheckPopedom.asp" -->
<%
if Not JudgePopedomTF(Session("Name"),"P080106") then Call ReturnError1()
Dim NewsListPagesNumber
'////////////////////////////////////////////////////////////////////////////////////
'其他地方的变量请不要设置，如果设置了，有可能引起不能够正常采集。
'Server.ScriptTimeOut = 10000 '设置脚本超时
NewsListPagesNumber = 300 '采集新闻列表分页最大数量
'////////////////////////////////////////////////////////////////////////////////////
Dim AvailableDoMain '站点域名--配置信息
Dim DummyDir '虚拟目录--配置信息
AvailableDoMain = GetConfig(0)
DummyDir = Get_RootDir
Dim SiteID,ErrorInfoStr,Action
Action = Request("Action")
SiteID = Request("SiteID")
ErrorInfoStr = ""
Dim SysClassID,SaveIMGPath
Dim ListHeadSetting,ListFootSetting
Dim LinkHeadSetting,LinkFootSetting
Dim PagebodyHeadSetting,PagebodyFootSetting
Dim PageTitleHeadSetting,PageTitleFootSetting
Dim OtherPageFootSetting,OtherPageHeadSetting
Dim OtherNewsPageHeadSetting,OtherNewsPageFootSetting
Dim AuthorHeadSetting,AuthorFootSetting
Dim SourceHeadSetting,SourceFootSetting
Dim AddDateHeadSetting,AddDateFootSetting
Dim IndexRule,StartPageNum,EndPageNum,HandPageContent,OtherType
Dim IsStyle,IsDiv,IsA,IsClass,IsFont,IsSpan,IsObjectTF,IsIFrame,IsScript
Dim HandSetAuthor,HandSetSource,HandSetAddDate
Dim TextTF,SaveRemotePic,IsReverse
Dim SysTemplet '新闻模板
Dim ObjURL
Dim ReturnValue
Dim CollectStartLocation
Dim CollectEndFlag
CollectEndFlag = False
Dim CollectObjURL
Dim CollectedPageURL
CollectedPageURL = Request("CollectedPageURL")
Dim SiteName
Dim CollectingSiteID
Dim CollectSiteIndex
Dim AllNewsNumber,CollectOKNumber
AllNewsNumber = Request("AllNewsNumber")
if AllNewsNumber = "" then
AllNewsNumber = 0
else
AllNewsNumber = CLng(AllNewsNumber)
end if
CollectOKNumber = Request("CollectOKNumber")
if CollectOKNumber = "" then
CollectOKNumber = 0
else
CollectOKNumber = CLng(CollectOKNumber)
end if
CollectSiteIndex = Request("CollectSiteIndex")
if CollectSiteIndex = "" then
CollectSiteIndex = 0
else
CollectSiteIndex = CInt(CollectSiteIndex)
end if
Dim CollectPageNumber
CollectPageNumber = Request("CollectPageNumber")
if CollectPageNumber = "" then
CollectPageNumber = 0
else
CollectPageNumber = CInt(CollectPageNumber)
end if
CollectStartLocation = Request("CollectStartLocation")
if CollectStartLocation = "" then CollectStartLocation = 0
Dim Num
Num = Request("Num")
If Num = "allNews" Or Num="" Then
Num = 0
Else
Num = CInt(Num)
End If
Dim CollectType
CollectType = Request("CollectType")
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>正在采集</title>
</head>
<link href="../../../CSS/FS_css.css" rel="stylesheet">
<script src="../../SysJS/PublicJS.js" language="JavaScript"></script>
<body topmargin="2" leftmargin="2" oncontextmenu="return false;">
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#999999">
<tr bgcolor="#EEEEEE">
<td height="26" colspan="5" valign="middle">
<table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="35" id="StopCollect" align="center" alt="停止采集" onClick="location.href='Site.asp';" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">取消</td>
<td width=2 class="Gray">|</td>
<td width="35" id="SaveCollect" align="center" alt="保存采集进度并返回" onClick="location.href='Site.asp';" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">保存</td>
<td width=2 class="Gray">|</td>
<td width="35" align="center" alt="后退" onClick="history.back();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">后退</td>
<td> </td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="20"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<%If CollectType="ResumeCollect" then%>
<td width="50%;" align="right"><font color="#FF0000" id="CollectEndArea">正在续采</font></td>
<%else%>
<td width="50%;" align="right"><font color="#FF0000" id="CollectEndArea">正在采集</font></td>
<%End if%>
<td width="50%;"> <font color="#FF0000" id="ShowInfoArea" size="+1"> </font></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="middle">
<%
if Action = "Submit" then
if SiteID <> "" then
GetCollectPara
If AllNewsNumber>=Num And Num<>0 Then
CollectEndFlag = True
End If
if CollectEndFlag then
if ErrorInfoStr <> "" then
Response.Write(ErrorInfoStr)
else
ReturnValue = "<br> <strong>采集结束</strong>： 共读取" & AllNewsNumber & "条新闻，采集成功" & CollectOKNumber & "条新闻。"
Response.Write(ReturnValue)
Response.Write("<script language=""JavaScript"">setTimeout('SetCollectEndStr();',100);</script>")
end if
elseif CollectType<>"ResumeCollect" Then
GetNewsPageContent()
if CollectStartLocation = 0 then
ReturnValue = "<br> <strong><font color=red>采集分页" & CollectPageNumber & "</font></strong>：" & "<a target=""_blank"" href=""" & ObjURL & """>" & ObjURL & "</a><br>" & ReturnValue
else
ReturnValue = "<br> <strong><font color=red>采集分页" & CollectPageNumber + 1 & "</font></strong>：" & "<a target=""_blank"" href=""" & ObjURL & """>" & ObjURL & "</a><br>" & ReturnValue
end if
ReturnValue = "<br> <strong><font color=red>采集站点</font></strong>：" & SiteName & "<br>" & ReturnValue
ReturnValue = "<br> <strong><font color=red>采集结果</font></strong>：已经读取" & AllNewsNumber & "条新闻，保存" & CollectOKNumber & "条新闻<br>" & ReturnValue
Response.Write(ReturnValue & "<meta http-equiv=""refresh"" content=""2;url=Collecting.asp?Action=Submit&CollectPageNumber=" & CollectPageNumber & "&SiteID=" & SiteID & "&CollectStartLocation=" & CollectStartLocation & "&CollectedPageURL=" & CollectedPageURL & "&CollectSiteIndex=" & CollectSiteIndex & "&Num=" & Num & "&AllNewsNumber=" & AllNewsNumber & "&CollectOKNumber=" & CollectOKNumber & """>")
else
ResumeGetNewsPageContent()
if CollectStartLocation = 0 then
ReturnValue = "<br> <strong><font color=red>采集分页" & CollectPageNumber & "</font></strong>：" & "<a target=""_blank"" href=""" & ObjURL & """>" & ObjURL & "</a><br>" & ReturnValue
else
ReturnValue = "<br> <strong><font color=red>采集分页" & CollectPageNumber + 1 & "</font></strong>：" & "<a target=""_blank"" href=""" & ObjURL & """>" & ObjURL & "</a><br>" & ReturnValue
end if
ReturnValue = "<br> <strong><font color=red>采集站点</font></strong>：" & SiteName & "<br>" & ReturnValue
ReturnValue = "<br> <strong><font color=red>采集结果</font></strong>：已经读取" & AllNewsNumber & "条新闻，续采了" & CollectOKNumber & "条新闻<br>" & ReturnValue
Response.Write(ReturnValue & "<meta http-equiv=""refresh"" content=""2;url=Collecting.asp?Action=Submit&CollectType=ResumeCollect&CollectPageNumber=" & CollectPageNumber & "&SiteID=" & SiteID & "&CollectStartLocation=" & CollectStartLocation & "&CollectedPageURL=" & CollectedPageURL & "&CollectSiteIndex=" & CollectSiteIndex & "&AllNewsNumber=" & AllNewsNumber & "&CollectOKNumber=" & CollectOKNumber & """>")
end if
end if
end if
%>
</td>
</tr>
</table>
</body>
</html>
<script language="JavaScript">
var ForwardShow=true;
function ShowPromptInfo()
{
var TempStr=document.all.ShowInfoArea.innerText;
if (ForwardShow==true)
{
if (TempStr.length>4) ForwardShow=false;
document.all.ShowInfoArea.innerText=TempStr+'.';
}
else
{
if (TempStr.length==2) ForwardShow=true;
document.all.ShowInfoArea.innerText=TempStr.substr(0,TempStr.length-1);
}
}
function SetCollectEndStr()
{
document.all.CollectEndArea.innerText='采集结束,3秒钟后返回主页面';
setTimeout("location='Site.asp';",3000);
}
window.setInterval('ShowPromptInfo()',500);</script>
<% if Action = "" then %>
<script language="JavaScript">
setTimeout("location='?SiteID=<% = SiteID %>&CollectType=<%= CollectType %>&Action=Submit&Num=<%= Num %>';",10);
</script>
<% end if %>
<%
Set Conn = Nothing
Set CollectConn = Nothing
Function GetCollectPara()
Dim RsSiteObj,Sql,SiteIDArray
if SiteID = "" then
ErrorInfoStr = "没有采集站点，请重试"
Exit Function
end if
SiteIDArray = Split(SiteID,"***")
if CollectSiteIndex > UBound(SiteIDArray) then
CollectEndFlag = True
Exit Function
end if
CollectingSiteID = SiteIDArray(CollectSiteIndex)
Sql = "Select * from FS_Site where ID=" & CollectingSiteID
Set RsSiteObj = CollectConn.Execute(Sql)
if RsSiteObj.Eof then
Set RsSiteObj = Nothing
ErrorInfoStr = "没有采集站点，请重试"
Exit Function
else
SiteName = RsSiteObj("SiteName")
ListHeadSetting = RsSiteObj("ListHeadSetting")
ListFootSetting = RsSiteObj("ListFootSetting")
LinkHeadSetting = RsSiteObj("LinkHeadSetting")
LinkFootSetting = RsSiteObj("LinkFootSetting")
PagebodyHeadSetting = RsSiteObj("PagebodyHeadSetting")
PagebodyFootSetting = RsSiteObj("PagebodyFootSetting")
PageTitleHeadSetting = RsSiteObj("PageTitleHeadSetting")
PageTitleFootSetting = RsSiteObj("PageTitleFootSetting")
OtherPageFootSetting = RsSiteObj("OtherPageFootSetting")
OtherPageHeadSetting = RsSiteObj("OtherPageHeadSetting")
OtherNewsPageHeadSetting = RsSiteObj("OtherNewsPageHeadSetting")
OtherNewsPageFootSetting = RsSiteObj("OtherNewsPageFootSetting")
AuthorHeadSetting = RsSiteObj("AuthorHeadSetting")
AuthorFootSetting = RsSiteObj("AuthorFootSetting")
SourceHeadSetting = RsSiteObj("SourceHeadSetting")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -