相關(guān)變量參數(shù)： strDir 用于保存.html文件的文件夾路徑 htmlwrite FSO對象，用于生成.html文件 arrcontent 按分頁標(biāo)簽分割的文章內(nèi)容數(shù)組 InnerPageNum 統(tǒng)計內(nèi)容的頁數(shù) rollnum 當(dāng)前第(rollnum+1)頁 pagelist 分頁頁碼 strTemplate 存放模板內(nèi)容 strTe

1、相關(guān)變量參數(shù)：

strDir 用于保存.html文件的文件夾路徑

htmlwrite FSO對象，用于生成.html文件

arrcontent 按分頁標(biāo)簽分割的文章內(nèi)容數(shù)組

InnerPageNum 統(tǒng)計內(nèi)容的頁數(shù)

rollnum 當(dāng)前第(rollnum+1)頁

pagelist 分頁頁碼

strTemplate 存放模板內(nèi)容

strTemp 模板內(nèi)容備份

$page_break$ 內(nèi)容分頁標(biāo)簽

2、核心代碼

'========生成內(nèi)容靜態(tài)頁======

on Error resume next

Set fso = Server.CreateObject("Scripting.FileSystemObject")

'=====用于保存靜態(tài)文件的文件夾路徑名稱，這里我按自己的項目設(shè)定了====

strDir=SITEROOT&"/"&NewsHtmlFile&"/"&year(now)&"-"&month(now)

'======生成靜態(tài)文件保存文件夾=====

if not fso.folderexists(Server.MapPath(strDir)) then fso.CreateFolder(Server.MapPath(strDir))

set fso=Nothing

if Err=0 then

Dim fso,htmlwrite ,arrcontent,InnerPageNum,rollnum,pagelist,strTemplate,strTemp

'===讀取模板文件，我前面的文章關(guān)于ASP生成靜態(tài)的，有這個數(shù)據(jù)表的內(nèi)容===

sql="SELECT tp_content FROM [KrTemplate] WHERE tp_default=1 AND tp_type='新聞內(nèi)容頁模板'"

Set rs=Conn.Execute(sql)

if not rs.eof then

strTemplate=rs(0)

end if

rs.close

'======備份模板文件，避免模板文件被改寫=====

strTemp=strTemplate

'======文章數(shù)據(jù)表=====

sql="SELECT * FROM [KrNews] WHERE news_html=0 ORDER BY news_date DESC"

Set rs=Conn.Execute(sql)

'======循環(huán)讀取所有要生成的文章信息======

do while not rs.eof

news_keywords=rs("news_keywords")

news_content=rs("news_content")

news_tips=rs("news_tips")

news_name=rs("news_name")

news_from=rs("news_from")

news_date=rs("news_date")

news_id=rs("news_id")

'====匹配文章內(nèi)容，如果出現(xiàn)分頁標(biāo)簽，則按如下處理，否則按普通生成方法處理===

if Instr(news_content,"$page_break$") then

'===如果文章URL要存入數(shù)據(jù)庫，那么這里存入的地址就為文章分頁后的第一頁的路徑，

'===即為下面的URL地址加上第一頁的標(biāo)志，我這里存入數(shù)據(jù)庫的地址是這樣的

' ===URL=URL&"_1.html"

URL=SITEURL&strDir&"/news_"&news_id&""

'======對分頁信息的預(yù)處理=======

'=====將按分頁標(biāo)簽分割的文章內(nèi)容存入數(shù)組arrcontent=====

arrcontent=split(news_content,"$page_break$")

'=====得到文章分割后所得的頁數(shù)=====

InnerPageNum=ubound(arrcontent)

pagelist=" "

'=====循環(huán)得到頁碼======

for rollnum=0 to InnerPageNum

pagelist=pagelist & "["&(rollnum+1)&"] "

next

for rollnum=0 to InnerPageNum

'======還原被改寫的模板，這里不注意會生成相同的文件======

strTemplate=strTemp

strTemplate=Replace(strTemplate,"$keywords$",news_keywords)

strTemplate=Replace(strTemplate,"$news_tips$",news_tips)

………… '略，其他一樣寫法

'===替換文章內(nèi)容，并添加分頁頁碼====

strTemplate=Replace(strTemplate,"$news_content$",arrcontent(rollnum)&"

分頁："&pagelist&"

")

'====要生成的HTML頁面路徑及名稱======

Address=strDir&"/news_"&news_id&"_"&(rollnum+1)&".html"

'======調(diào)用adodb.stream方法生成靜態(tài)頁面，此為自定義方法，附在文章后面===

WriteToTextFile Address,strTemplate

'======(可選擇)FSO方法生成靜態(tài)頁面

' Set fso = Server.CreateObject("Scripting.FileSystemObject")

' Set htmlwrite=fso.CreateTextFile(Server.MapPath(Address),true) '// 創(chuàng)建要生成的靜態(tài)頁

' htmlwrite.WriteLine strTemplate '// 寫入網(wǎng)頁內(nèi)容

' htmlwrite.close

' set htmlwrite=Nothing

' set fso=Nothing

next

else

strTemplate=Replace(strTemplate,"$keywords$",news_keywords)

strTemplate=Replace(strTemplate,"$news_tips$",news_tips)

strTemplate=Replace(strTemplate,"$sitename$",SITENAME)

…………

strTemplate=Replace(strTemplate,"$news_content$",news_content)

Address=strDir&"/news_"&rs("news_id")&".html"

WriteToTextFile Address,strTemplate

end if

rs.movenext

loop

rs.close

end if

'=======ADODB.Stream生成文件函數(shù)=========

Sub WriteToTextFile (FileUrl,byval Str)

set stm=server.CreateObject("adodb.stream")

stm.Type=2 '以本模式讀取

stm.mode=3

stm.charset="GB2312"

stm.open

stm.WriteText str

stm.SaveToFile server.MapPath(FileUrl),2

stm.flush

stm.Close

str=""

set stm=nothing

End Sub