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

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

将下面的代码保存为asp网页或者下载附件到PJ3的根目录下然后访问一次！

留意IIS里的文本文档该调为index.htm优先选择才能够,在官方网的宣布静态数据没出去前它是个非常好的临时性解决方案,比以前的立即访问动态性网页页面要爽多了,不用再死等网络服务器的解决了!

复制代码编码以下:
<%
dimstrUrl,Item_Classid,id,FileName,FilePath,Do_Url,Html_Temp
Html_Temp="<UL>"
Fori=1To1
Html_Temp=Html_Temp&"<LI>"
Item_Classid=i
FileName="index.htm"
FilePath=Server.MapPath("/")&"\"&FileName
Html_Temp=Html_Temp&FilePath&"</LI>"
Do_Url="http://"
Do_Url=Do_Url&Request.ServerVariables("SERVER_NAME")&"/default.asp"
'Do_Url=Do_Url&"?Item_Classid="&Item_Classid
strUrl=Do_Url
callmakehtml(strUrl,FilePath)
Next
Html_Temp=Html_Temp&"<UL>"
Response.Write("主页公布进行！")
Response.Write("
")
Response.WriteHtml_Temp
functionmakehtml(strUrl,FilePath)
dimobjXmlHttp
setobjXmlHttp=Server.CreateObject("Microsoft.XMLHTTP")
objXmlHttp.open"GET",strUrl,false
objXmlHttp.send()
DimbinFileData
binFileData=objXmlHttp.responseBody
DimobjAdoStream
setobjAdoStream=Server.CreateObject("ADODB.Stream")
objAdoStream.Type=1
objAdoStream.Open()
objAdoStream.Write(binFileData)
objAdoStream.SaveToFileFilePath,2
objAdoStream.Close()
endfunction
%>

asp文件装包