28,391
社区成员
发帖
与我相关
我的任务
分享
<%
'Content=GetHttpPage("http://www.dimld.com/index.asp")
'Call WriteFile("index.html",Content)
'response.Write("document.write(""完成创建"");")
dim ddiff
if application("cdate")="" then
application.Lock()
application("cdate")=now()
application.UnLock()
Content=GetHttpPage("http://www.dimld.com/index.asp")
Call WriteFile("index.html",Content)
'response.Write("document.write(""完成创建"");")
else
ddiff=minute(now)-minute(application("cdate"))
response.Write ddiff
if ddiff>1 then
application.Lock()
application("cdate")=now()
application.UnLock()
'更新创建时间,生成首页
Dim Content,HtmlFile,URL
Content=GetHttpPage("http://www.dimld.com/index.asp")
Call WriteFile("index.html",Content)
'response.Write("document.write(""完成创建"");")
end if
end if