欢迎来到Java学习网!
设为首页 | 加入收藏
当前位置: 首页 > 编程开发 > ASP编程 >

asp定时生成html静态页面,确切的来说实应该是触发生成,也就是每隔一段时间,有访问者点击网页时,触发生成静态页面!

<%
Dim sDate,Fso,Fout
sDate = Application("linkzj.cn")
If IsEmpty(sDate) Or DateDiff("d",sDate,Now())>1 Then
'当没有记录时间或记录时间与当前服务器时间不一至时生成HTML并记录下当前时间
Application.Lock
Application("linkzj.cn") = Now() '记录当时的时间
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
%>

    相关教程
    推荐内容