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

<%
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>