手机
当前位置:查字典教程网 >CMS教程 >其它cms >PJblog3 博客首页全静态青云修改完美版
PJblog3 博客首页全静态青云修改完美版
摘要:需要手工点一下这个页面的地址即可生成最新的静态首页并可在5秒内自动关闭,小弟水平有限,有兄弟搞成全自动的了麻烦给我发一份儿,呵呵,我的QQ2...

需要手工点一下这个页面的地址即可生成最新的静态首页并可在5秒内自动关闭,小弟水平有限,有兄弟搞成全自动的了麻烦给我发一份儿,呵呵,我的QQ285584,我的博客是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">

<>

</script>

【PJblog3 博客首页全静态青云修改完美版】相关文章:

joomla手动实现后台上传和缩略图入库扩展实现方法分享

记事狗微博整合ucenter同步登录 同步退出解决方案

光线cms、马克斯MaxCMS影视系统调用吉吉影音替换快播播放器的方法

o8cms Error: Unknown column 'ccid51date' in 'field list'

齐博CMS整合DZ论坛后标签无法显示论坛图片的解决方法

最土团购商品按价格排序实现方法分享

目前国外最好最流行的10款相册CMS(图)

PJblog3 博客系统生成静态首页的简单方法

Typecho CSS3个性留言板之读者墙页面的实现方法

火车头5UCMS1.2免登陆发布接口

精品推荐
分类导航