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

需要手工点一下这个页面的地址即可生成最新的静态首页并可在5秒内自动关闭，小弟水平有限，有兄弟搞成全自动的了麻烦给我发一份儿，呵呵，我的ＱＱ285584，我的博客是Http://blog.atimg.com，欢迎交流！

使用方法：复制下面的代码，存成asp上传到你的博客根目录下即可使用，标签页面也可使用，把里面的default.asp和index.htm改成tag.asp和tag.htm即可！

程序代码

复制代码代码如下:

<%

dim objXmlHttp,binFileData,objAdoStream

Randomize()

set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP")

objXmlHttp.open "GET","http://"&request.ServerVariables("HTTP_HOST")&"/default.asp?"&rnd(),false

objXmlHttp.send()

binFileData = objXmlHttp.responseBody

set objAdoStream = Server.CreateObject("ADODB.Stream")

objAdoStream.Type = 1

objAdoStream.Open()

objAdoStream.Write(binFileData)

objAdoStream.SaveToFile server.MapPath("index.htm"),2

objAdoStream.Close()

set objAdoStream=nothing

set objXmlHttp=nothing

Response.Write ( "首页发布完成！" )

Response.Write ( "

" )

%>

<script language="javascript">

<!--

function clock(){i=i-1

document.title="本窗口将在"+i+"秒后自动关闭!";

if(i>0)setTimeout("clock();",1000);

else self.close();}

var i=5

clock();

window.opener=null

//-->

</script>