PJblog3 博客首页全静态青云修改完美版
发布时间：2010-03-07 23:21:40 作者：佚名 
我要评论
我要评论原来记得坛子上有个兄弟发过一个首页静态的，不过有点问题，就是缓存那里，生成的页面不够及时，怎么生成都是老的，不是新添加内容后的，然后兄弟我就费了点时间搞了个完美版，希望大家喜欢
需要手工点一下这个页面的地址即可生成最新的静态首页并可在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>
使用方法：复制下面的代码，存成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>
相关文章
- 这篇文章主要介绍了Fastadmin的安装与使用方法,需要的朋友可以参考下2020-08-06
安装FastAdmin时报1146 Table 'fastadmin.fa_admin' doesn't exist错误
有部分小伙伴在安装FastAdmin时报以下错误,SQLSTATE[42S02]: Base table or view not found: 1146 Table 'fastadmin.fa_admin' doesn't exist2020-08-05
BOM信息是文件开头的一串隐藏的字符，用于让某些编辑器识别这是个UTF-8编码的文件，也编辑器自动加上的这个会导致页面头部会出现一个空白行；如果是织梦的程序也会引起验证2020-02-17- 在本篇文章里小编给大家整理的是关于苹果cms采集插件安装的步骤和方法，有需要的朋友们可以学习下。2019-12-05
- 在本篇文章里小编给大家整理的是关于苹果cms添加播放器的方法步骤，对此有需要的朋友们可以学习下。2019-12-05
- 在本篇文章里小编给大家分享的是关于苹果cms更换logo的方法和步骤，有需要的朋友们可以学习参考下。2019-12-05
- 在本篇文章里小编给大家整理的是关于海洋cms电影源码安装步骤方法以及相关知识点，有兴趣的朋友们学习下。2019-12-05
- 在本篇文章里小编给大家整理的是关于苹果CMS自适应手模板设置方法，有需要的朋友们参考学习下。2019-12-05
- 在本篇文章里小编给大家整理的是关于苹果海洋CMS自定义采集助手设置方法，有需要的朋友们学习下。2019-12-05
- 这篇文章主要为大家介绍了苹果cms添加幻灯片的操作方法，步骤很简单，有需要的朋友们跟着操作下。2019-12-02
最新评论