Question

我现在有个ASP动态网站,怎么在后台添加可以生成静态?

有没简单的代码可以做到?

Answer 1

' 第一步：利用获取FSO获取到你设计的模板文件（template.html，文件名随便）
dim Html_Code,TempFile
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set TempFile = fso.OpenTextFile(Server.MapPath("template.html")) ' 请注意该文件存放的位置，路径一定要书写正确 Template = TempFile.ReadAll
TempFile.Close
Set fso = Nothing

' 第二步：你要生成HTML页的内容数据，可以去读数据库中的数据，这里给大家赋值变量，自己可以把变量换成数据库中的数据

title="文章标题"

keyword="文章关键字"

meta="文章描述"

Html_Code = Template '写入模版页

Html_Code=Replace(Html_Code,"$title$",title) ' 双引号里的是模版页面中要被替换的内容

Html_Code=Replace(Html_Code,"$keyword$",keyword)

Html_Code=Replace(Html_Code,"$meta$",meta)

' 第三步，生成静态页面

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set FOut = fso.CreateTextFile(Server.MapPath("../index.html")) '注意 这里是 在指定的位置创建文件
FOut.WriteLine Html_Code ' 将信息写入刚创建的文件
FOut.Close
Set fso = Nothing

response.Write("主页生成ok！")

Answer 2

' 第一步：利用获取FSO获取到你设计的模板文件（template.html，文件名随便）
dim Html_Code,TempFile
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set TempFile = fso.OpenTextFile(Server.MapPath("template.html")) ' 请注意该文件存放的位置，路径一定要书写正确 Template = TempFile.ReadAll
TempFile.Close
Set fso = Nothing

' 第二步：你要生成HTML页的内容数据，可以去读数据库中的数据，这里给大家赋值变量，自己可以把变量换成数据库中的数据

title="文章标题"

keyword="文章关键字"

meta="文章描述"

Html_Code = Template '写入模版页

Html_Code=Replace(Html_Code,"$title$",title) ' 双引号里的是模版页面中要被替换的内容

Html_Code=Replace(Html_Code,"$keyword$",keyword)

Html_Code=Replace(Html_Code,"$meta$",meta)

' 第三步，生成静态页面

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set FOut = fso.CreateTextFile(Server.MapPath("../index.html")) '注意 这里是 在指定的位置创建文件
FOut.WriteLine Html_Code ' 将信息写入刚创建的文件
FOut.Close
Set fso = Nothing