如何实现每隔1个小时自动生成一次index.htm

在index.htm用JS方式引用一个ASP文件
<script language="JavaScript" src="save.asp"></script>
在save.asp写判断程序~~
<%
Dim sDate,Fso,Fout
sDate = Application("缓存名称")
If IsEmpty(sDate) or CDate(sDate)<>Date() Then
    '当记录的日期与服务器当天的日期不符的话则执行程序，并记录下当天的日期
    Application.Lock
    Application("缓存名称") = Date()    '记录当天的日期
    Application.UnLock
    '生成代码开始
    Set Fso = Server.CreateObject("Scripting.FileSystemObject")
    Set Fout = Fso.CreateTextFile(Server.Mappath("index.htm"))
        Fout.Write "这儿写首页代码" & VbCrLf
        '下面这行是引用判断用的ASP文件
        Fout.Write "<script language=""JavaScript"" src=""save.asp""></script>"
        Fout.Close
    Set Fout = Nothing
    Set Fso = Nothing
    '生成代码结束
    Response.Write "//生成成功！"
End If
%>







<%
'……
sDate = Application("缓存名称")
If IsEmpty(sDate) or DateDiff("h",sDate,Now())>1 Then
    Application.Lock
    Application("缓存名称") = Now()    '记录当时的时间
    Application.UnLock
    '生成代码开始
    '……
End If
'……
%>

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: 生成生成
相关日志: