'*************************************************************
'函数作用:生成HTML文件
'*************************************************************
Private Function CreateHtmlFile(id) '加一个ID参数为批量生成准备
Dim CreateHtml
Dim FSO
Dim Fout
Dim CreatePath
Set FSO = Server.CreateObject(D5WEB.Script_FSO)
CreatePath = "生成静态页的页面地址加文件名比如1/" & id & ".htm"
CreateHtml = Server.MapPath(CreatePath)
Set Fout = FSO.CreateTextFile(CreateHtml)
Fout.WriteLine HtmlTemplate '这个是内容,一般用另一个函数来实现,用最多的是Replace
Fout.Close
Set Fout = Nothing
Set FSO = Nothing
End Function