注册 登录  
 加关注
查看详情
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

火山左儿

学无止境

 
 
 

日志

 
 

asp定时生成静态页面代码  

2010-12-02 16:04:47|  分类: 计算机应用问题 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
 

asp定时生成html静态页面,确切的来说实应该是触发生成,也就是每隔一段时间,有访问者点击网页时,触发生成静态页面,不过也挺实用的,起码不用每次都要手动来生成了!

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

  评论这张
 
阅读(414)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018