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

1、相關變量參數：

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

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

arrcontent 按分頁標簽分割的文章內容數組

InnerPageNum 統(tǒng)計內容的頁數

rollnum 當前第(rollnum+1)頁

pagelist 分頁頁碼

strTemplate 存放模板內容

strTemp 模板內容備份

$page_break$ 內容分頁標簽

2、核心代碼

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

on Error resume next

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

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

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

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

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

Set rs=Conn.Execute(sql)

if not rs.eof then

strTemplate=rs(0)

end if

rs.close

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

strTemp=strTemplate

'======文章數據表=====

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")

'====匹配文章內容，如果出現分頁標簽，則按如下處理，否則按普通生成方法處理===

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

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

'===即為下面的URL地址加上第一頁的標志，我這里存入數據庫的地址是這樣的

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

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

'======對分頁信息的預處理=======

'=====將按分頁標簽分割的文章內容存入數組arrcontent=====

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

'=====得到文章分割后所得的頁數=====

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)

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

'===替換文章內容，并添加分頁頁碼====

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

分頁："&pagelist&"

")

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

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

'======調用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 '// 寫入網頁內容

' 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生成文件函數=========

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