随便撸源码(www.suibianlu.com)精品网站源码,织梦模版,游戏源码,网赚营销教程分享平台

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

时间:2021-06-19 [其它cms教程] 作者:随便撸源码

需要手工点一下这个页面的地址即可生成最新的静态首页并可在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">
<!--
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>

本文标签:PJblog3  首页全静态  折翼天使  莎莎源码  吾爱源码  其他源码  微赞模块  源码  网站插件  跟版网  dede58 

转载请注明来源:随便撸源码:PJblog3 博客首页全静态青云修改完美版

本文永久链接地址:https://www.suibianlu.com/25759.html

郑重声明:
本站所有内容均由互联网收集整理、网友上传,并且以计算机技术研究交流为目的,仅供大家参考、学习,不存在任何商业目的与商业用途。 若您需要商业运营或用于其他商业活动,请您购买正版授权并合法使用。
我们不承担任何技术及版权问题,且不对任何资源负法律责任。
如无法下载,联系站长索要