PJblog3 博客系統(tǒng)生成靜態(tài)首頁的簡單方法
發(fā)布時間：2010-03-07 23:00:39 作者：佚名 
我要評論
我要評論把下面的代碼存成一個asp頁面或下載附件放到PJ3的根目錄下然后訪問一次即可!
注意IIS里的文檔要調(diào)為index.htm優(yōu)先才可以,在官方的正式靜態(tài)沒出來前這是個不錯的臨時解決辦法,比之前的直接訪問動態(tài)頁面要爽多了,不用再死等服務(wù)器的處理了!
<%
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 ( "首頁發(fā)布完成！" )
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文件打包
復(fù)制代碼
代碼如下:<%
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 ( "首頁發(fā)布完成！" )
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文件打包
相關(guān)文章
- 這篇文章主要介紹了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編碼的文件，也編輯器自動加上的這個會導(dǎo)致頁面頭部會出現(xiàn)一個空白行；如果是織夢的程序也會引起驗證2020-02-17- 在本篇文章里小編給大家整理的是關(guān)于蘋果cms采集插件安裝的步驟和方法，有需要的朋友們可以學(xué)習(xí)下。2019-12-05
- 在本篇文章里小編給大家整理的是關(guān)于蘋果cms添加播放器的方法步驟，對此有需要的朋友們可以學(xué)習(xí)下。2019-12-05
- 在本篇文章里小編給大家分享的是關(guān)于蘋果cms更換logo的方法和步驟，有需要的朋友們可以學(xué)習(xí)參考下。2019-12-05
- 在本篇文章里小編給大家整理的是關(guān)于海洋cms電影源碼安裝步驟方法以及相關(guān)知識點，有興趣的朋友們學(xué)習(xí)下。2019-12-05
- 在本篇文章里小編給大家整理的是關(guān)于蘋果CMS自適應(yīng)手模板設(shè)置方法，有需要的朋友們參考學(xué)習(xí)下。2019-12-05
- 在本篇文章里小編給大家整理的是關(guān)于蘋果海洋CMS自定義采集助手設(shè)置方法，有需要的朋友們學(xué)習(xí)下。2019-12-05
- 這篇文章主要為大家介紹了蘋果cms添加幻燈片的操作方法，步驟很簡單，有需要的朋友們跟著操作下。2019-12-02
