PJblog3 博客首页全静态青云修改完美版

PJblog3博客首页全静态青云修改完美版

我还记得有个兄弟在泡菜坛子上发布了一个主页的静态数据，但是有一点问题，就是有缓存文件，生成的页面并不是马上可用的。如何在添加新内容后不生成所有旧页面。然后，兄弟，我也花了点时间说了完美版，希望大家喜欢。

必须手工制作点一下这一页面的详细地址就可以生成全新的静态数据主页并可在5秒内全自动关掉，小弟水准比较有限，有兄弟搞成自动式的了不便发来一份儿，呵呵呵，我的ＱＱ285584，我的网站是http://blog.atimg.com，热烈欢迎沟通交流！
*** 作方法：拷贝下边的编码，存为asp上传入你的blog根目录下就可以应用，标识页面也可应用，把里边的default.asp和index.htm改为tag.asp和tag.htm就可以！
编程代码

复制代码编码以下:
<%
dimobjXmlHttp,binFileData,objAdoStream
Randomize()
setobjXmlHttp=Server.CreateObject("Microsoft.XMLHTTP")
objXmlHttp.open"GET","http://"&request.ServerVariables("HTTP_HOST")&"/default.asp?"&rnd(),false
objXmlHttp.send()
binFileData=objXmlHttp.responseBody
setobjAdoStream=Server.CreateObject("ADODB.Stream")
objAdoStream.Type=1
objAdoStream.Open()
objAdoStream.Write(binFileData)
objAdoStream.SaveToFileserver.MapPath("index.htm"),2
objAdoStream.Close()
setobjAdoStream=nothing
setobjXmlHttp=nothing
Response.Write("主页公布进行！")
Response.Write("
")
%>
<scriptlanguage="javascript">
<!--
functionclock(){i=i-1
document.title="本对话框将在"i"秒后全自动关掉!";
if(i>0)setTimeout("clock();",1000);
elseself.close();}
vari=5
clock();
window.opener=null
//-->
</script>