asp定时生成静态HTML的代码

asp定时生成静态HTML的代码

　　代码如下:
　　
　　<%
　　'判断是否要生成新的HTML
　　ifApplication("cache_asptohtml_date")=""then
　　Application.Lock
　　Application("cache_asptohtml_date")=now()
　　Application.Unlock
　　CallaspTohtml
　　Response.Redirect("index.html")
　　endif
　　ifDateDiff("s",Application("cache_asptohtml_date"),Now)>100then'比较上次更新时间与当前时间相差多少秒
　　Application.Lock
　　Application("cache_asptohtml_date")=now()
　　Application.UnLock
　　CallaspTohtml
　　Response.Redirect("index.html")
　　Else
　　Response.Redirect("index.html")
　　Endif
　　
　　'获取当前目录!
　　functiongetpath
　　ifRequest.ServerVariables("SERVER_PORT")<>"80"then
　　UserUrl="http://"&Request.ServerVariables("SERVER_NAME")&":"&Request.ServerVariables("SERVER_PORT")&Request.ServerVariables("URL")
　　else
　　UserUrl="http://"&Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("URL")
　　endif
　　getpath=left(UserUrl,InstrRev(UserUrl,"/"))
　　endfunction
　　
　　subaspTohtml
　　'----------------------------------------------------------
　　'使用XMLHTTP生成静态首页的代码
　　'Curl为你的首页地址，确保你的空间支持FSO
　　'-----------------------------------------------------------
　　dimread,Curl,content
　　Curl=getpath&"home.asp"
　　read=getHTTPPage(Curl)
　　ifread<>""then
　　content=read
　　SetFso=Server.CreateObject("Scripting.FileSystemObject")
　　Filen=Server.MapPath("index.html")
　　SetSite_Config=FSO.CreateTextFile(Filen,true,False)
　　Site_Config.Writecontent
　　Site_Config.Close
　　SetFso=Nothing
　　endif
　　Endsub
　　FunctiongetHTTPPage(url)
　　dimhttp
　　sethttp=Server.createobject("Microsoft.XMLHTTP")
　　Http.open"GET",url,false
　　Http.send()
　　ifHttp.readystate<>4then
　　exitfunction
　　endif
　　getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
　　sethttp=nothing
　　iferr.number<>0thenerr.Clear
　　EndFunction
　　
　　FunctionBytesToBstr(body,Cset)
　　dimobjstream
　　setobjstream=Server.CreateObject("adodb.stream")
　　objstream.Type=1
　　objstream.Mode=3
　　objstream.Open
　　objstream.Writebody
　　objstream.Position=0
　　objstream.Type=2
　　objstream.Charset=Cset
　　BytesToBstr=objstream.ReadText
　　objstream.Close
　　setobjstream=nothing
　　EndFunction
　　%>
　　
　　
　　ASP定时生成静态页(HTML)2
　　
　　复制代码代码如下:
　　
　　<%
　　setfs=server.createobject("scripting.filesystemobject")
　　file=server.mappath("time.txt")
　　settxt=fs.opentextfile(file,1,true)
　　ifnottxt.atendofstreamthen
　　times=txt.ReadLine
　　Else
　　response.write"<br/><!--有没有发现time.txt开始生成!-->"
　　HtmlPage="time.txt"'//生成的HTML文件名
　　Template=NOW()
　　SetFSO=Server.CreateObject("Scripting.FileSystemObject")
　　SetFileOut=FSO.CreateTextFile(Server.MapPath(HtmlPage))
　　FileOut.WriteLineTemplate
　　FileOut.Close
　　SetFSO=Nothing
　　endIf
　　
　　
　　Ifdatediff("s",times,NOW())>3600Then'//上次更新到现在的时间大于3600秒则更新
　　response.write"<br/><!--时间过了开始更新-->"
　　
　　code="这里是需要生成的html代码"'//如何得到代码的方式有很多
　　
　　'//用FSO生成HTML页面
　　HtmlPage="index.html"'//生成的HTML文件名
　　Template=code
　　SetFSO=Server.CreateObject("Scripting.FileSystemObject")
　　SetFileOut=FSO.CreateTextFile(Server.MapPath(HtmlPage))
　　FileOut.WriteLineTemplate
　　FileOut.Close
　　SetFSO=Nothing
　　
　　'//用FSO生成time.txt文件
　　HtmlPage="time.txt"'//生成的HTML文件名
　　Template=NOW()
　　SetFSO=Server.CreateObject("Scripting.FileSystemObject")
　　SetFileOut=FSO.CreateTextFile(Server.MapPath(HtmlPage))
　　FileOut.WriteLineTemplate
　　FileOut.Close
　　SetFSO=Nothing
　　
　　Else
　　
　　response.write"<br/><!--已经过去"&datediff("s",times,NOW())&"秒!-->"
　　
　　EndIf
　　%>