PJblog3 博客系統(tǒng)生成靜態(tài)首頁(yè)的簡(jiǎn)單方法
發(fā)布時(shí)間：2010-03-07 23:00:39 作者：佚名 
我要評(píng)論
我要評(píng)論把下面的代碼存成一個(gè)asp頁(yè)面或下載附件放到PJ3的根目錄下然后訪(fǎng)問(wèn)一次即可!
注意IIS里的文檔要調(diào)為index.htm優(yōu)先才可以,在官方的正式靜態(tài)沒(méi)出來(lái)前這是個(gè)不錯(cuò)的臨時(shí)解決辦法,比之前的直接訪(fǎng)問(wèn)動(dòng)態(tài)頁(yè)面要爽多了,不用再死等服務(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 ( "首頁(yè)發(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 ( "首頁(yè)發(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時(shí)報(bào)1146 Table 'fastadmin.fa_admin' doesn't exist錯(cuò)誤
有部分小伙伴在安裝FastAdmin時(shí)報(bào)以下錯(cuò)誤,SQLSTATE[42S02]: Base table or view not found: 1146 Table 'fastadmin.fa_admin' doesn't exist2020-08-05
UTF-8文件BOM信息自動(dòng)檢測(cè)和自動(dòng)清除源碼
BOM信息是文件開(kāi)頭的一串隱藏的字符，用于讓某些編輯器識(shí)別這是個(gè)UTF-8編碼的文件，也編輯器自動(dòng)加上的這個(gè)會(huì)導(dǎo)致頁(yè)面頭部會(huì)出現(xiàn)一個(gè)空白行；如果是織夢(mèng)的程序也會(huì)引起驗(yàn)證2020-02-17- 在本篇文章里小編給大家整理的是關(guān)于蘋(píng)果cms采集插件安裝的步驟和方法，有需要的朋友們可以學(xué)習(xí)下。2019-12-05
- 在本篇文章里小編給大家整理的是關(guān)于蘋(píng)果cms添加播放器的方法步驟，對(duì)此有需要的朋友們可以學(xué)習(xí)下。2019-12-05
- 在本篇文章里小編給大家分享的是關(guān)于蘋(píng)果cms更換logo的方法和步驟，有需要的朋友們可以學(xué)習(xí)參考下。2019-12-05
- 在本篇文章里小編給大家整理的是關(guān)于海洋cms電影源碼安裝步驟方法以及相關(guān)知識(shí)點(diǎn)，有興趣的朋友們學(xué)習(xí)下。2019-12-05
蘋(píng)果CMS自適應(yīng)手模板設(shè)置方法
在本篇文章里小編給大家整理的是關(guān)于蘋(píng)果CMS自適應(yīng)手模板設(shè)置方法，有需要的朋友們參考學(xué)習(xí)下。2019-12-05- 在本篇文章里小編給大家整理的是關(guān)于蘋(píng)果海洋CMS自定義采集助手設(shè)置方法，有需要的朋友們學(xué)習(xí)下。2019-12-05
- 這篇文章主要為大家介紹了蘋(píng)果cms添加幻燈片的操作方法，步驟很簡(jiǎn)單，有需要的朋友們跟著操作下。2019-12-02
