ASP实现每天自动生成首页的解决方法

虽然现在ASP用得很少了,不过其简洁的逻辑我还是很喜欢用的。入门低正是我喜欢的。哈,从没有去专门学习过程序开发方面的,但见多了,现在也懂得一点点。下面收藏一段代码,包括了采集功能和生成功能。

Server.ScriptTimeOut = 9999
set urs=Server.CreateObject(“ADODB.RecordSet”)
Sql=”select * from config”
urs.open sql,conn,3,3
if not urs.EOF then
upstart=urs(“upstart”) ‘采集开始时间
upend=urs(“upend”) ‘采集结束时间
makestart=urs(“makestart”) ‘生成首页开始时间
makeend=urs(“makeend”) ‘生成首页结束时间
upday=urs(“update”) ‘完成所有更新生更新为今日时间
else
urs.addnew
end if

ndate=date
make=0
if upday<>ndate then ‘对比数据库中的上次更新时间,不同时即开始更新
if upend<>ndate then ‘对比上次采集时间,如果是今天,说明采集已经完成
if (now-upstart)*60*60>10 then ‘对比上次开始采集时间,如果少于10分钟,可能上回的采集程序还在运行,只是太慢,避免每个访客访问都采集。
urs(“upstart”)=now
urs.update
getbaidu() ‘抓取百度关键词的函数
urs(“upend”)=date ‘采集完成,更新数据库中时间
urs(“makestart”)=now ‘开始生成
urs.update
createhome() ‘生成首页
urs(“makeend”)=date
urs(“update”)=date
urs.update
end if
make=1
end if
if makeend<>ndate and make=0 then ‘对比数据库中的生成时间及是否已经进行了刚才的步骤。
if (now-makestart)*60*60>10 then ‘对比上次开始生成时间,10分钟没生成才开始生成首页
urs(“makestart”)=now
urs.update
createhome() ‘生成首页
urs(“makeend”)=date
urs(“update”)=date ‘生成成功
urs.update
end if
end if
end if
urs.close
set urs=nothing

相关日志

发表于:2009-11-13 21:43:46 at 21:43 分类:代码 发表评论 Tags:, ,

发表评论

(必填)

(必填)您的电子邮箱不会被公开。

*

正在加载信息...

Archives