PJblog3 博客首頁全靜態(tài)青云修改完美版
發(fā)布時(shí)間：2010-03-07 23:21:40 作者：佚名 
我要評論
我要評論原來記得壇子上有個(gè)兄弟發(fā)過一個(gè)首頁靜態(tài)的，不過有點(diǎn)問題，就是緩存那里，生成的頁面不夠及時(shí)，怎么生成都是老的，不是新添加內(nèi)容后的，然后兄弟我就費(fèi)了點(diǎn)時(shí)間搞了個(gè)完美版，希望大家喜歡
需要手工點(diǎn)一下這個(gè)頁面的地址即可生成最新的靜態(tài)首頁并可在5秒內(nèi)自動關(guān)閉，小弟水平有限，有兄弟搞成全自動的了麻煩給我發(fā)一份兒，呵呵，我的ＱＱ285584，我的博客是http://blog.atimg.com，歡迎交流！
使用方法：復(fù)制下面的代碼，存成asp上傳到你的博客根目錄下即可使用，標(biāo)簽頁面也可使用，把里面的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 ( "首頁發(fā)布完成！" )
Response.Write ( "
" )
%>
<script language="javascript">
<!--
function clock(){i=i-1
document.title="本窗口將在"+i+"秒后自動關(guān)閉!";
if(i>0)setTimeout("clock();",1000);
else self.close();}
var i=5
clock();
window.opener=null
//-->
</script>
使用方法：復(fù)制下面的代碼，存成asp上傳到你的博客根目錄下即可使用，標(biāo)簽頁面也可使用，把里面的default.asp和index.htm改成tag.asp和tag.htm即可！
程序代碼
復(fù)制代碼
代碼如下:<%
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 ( "首頁發(fā)布完成！" )
Response.Write ( "
" )
%>
<script language="javascript">
<!--
function clock(){i=i-1
document.title="本窗口將在"+i+"秒后自動關(guān)閉!";
if(i>0)setTimeout("clock();",1000);
else self.close();}
var i=5
clock();
window.opener=null
//-->
</script>
相關(guān)文章
- 這篇文章主要介紹了Fastadmin的安裝與使用方法,需要的朋友可以參考下2020-08-06
安裝FastAdmin時(shí)報(bào)1146 Table 'fastadmin.fa_admin' doesn't exist錯(cuò)誤
有部分小伙伴在安裝FastAdmin時(shí)報(bào)以下錯(cuò)誤,SQLSTATE[42S02]: Base table or view not found: 1146 Table 'fastadmin.fa_admin' doesn't exist2020-08-05
BOM信息是文件開頭的一串隱藏的字符，用于讓某些編輯器識別這是個(gè)UTF-8編碼的文件，也編輯器自動加上的這個(gè)會導(dǎo)致頁面頭部會出現(xiàn)一個(gè)空白行；如果是織夢的程序也會引起驗(yàn)證2020-02-17- 在本篇文章里小編給大家整理的是關(guān)于蘋果cms采集插件安裝的步驟和方法，有需要的朋友們可以學(xué)習(xí)下。2019-12-05
- 在本篇文章里小編給大家整理的是關(guān)于蘋果cms添加播放器的方法步驟，對此有需要的朋友們可以學(xué)習(xí)下。2019-12-05
- 在本篇文章里小編給大家分享的是關(guān)于蘋果cms更換logo的方法和步驟，有需要的朋友們可以學(xué)習(xí)參考下。2019-12-05
- 在本篇文章里小編給大家整理的是關(guān)于海洋cms電影源碼安裝步驟方法以及相關(guān)知識點(diǎn)，有興趣的朋友們學(xué)習(xí)下。2019-12-05
- 在本篇文章里小編給大家整理的是關(guān)于蘋果CMS自適應(yīng)手模板設(shè)置方法，有需要的朋友們參考學(xué)習(xí)下。2019-12-05
- 在本篇文章里小編給大家整理的是關(guān)于蘋果海洋CMS自定義采集助手設(shè)置方法，有需要的朋友們學(xué)習(xí)下。2019-12-05
- 這篇文章主要為大家介紹了蘋果cms添加幻燈片的操作方法，步驟很簡單，有需要的朋友們跟著操作下。2019-12-02
