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

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

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

注意IIS里的文档要调为index.htm优先才可以,在官方的正式静态没出来前这是个不错的临时解决办法,比之前的直接访问动态页面要爽多了,不用再死等服务器的处理了!

代码如下:
<%
dim strUrl,Item_Classid,id,FileName,FilePath,Do_Url,Html_Temp
Html_Temp="<UL>"
For i=1 To 1
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
call makehtml (strUrl,FilePath)
Next
Html_Temp = Html_Temp&"<UL>"
Response.Write ( "首页发布完成!" )
Response.Write ( "
" )
Response.Write Html_Temp
function makehtml(strUrl,FilePath)
dim objXmlHttp
set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
objXmlHttp.open "GET",strUrl,false
objXmlHttp.send()
Dim binFileData
binFileData = objXmlHttp.responseBody
Dim objAdoStream
set objAdoStream = Server.CreateObject("ADODB.Stream")
objAdoStream.Type = 1
objAdoStream.Open()
objAdoStream.Write(binFileData)
objAdoStream.SaveToFile FilePath,2
objAdoStream.Close()
end function
%>

asp文件打包

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

转载请注明来源:随便撸源码:PJblog3 博客系统生成静态首页的简单方法

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

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