众所周知，静态的页面往往比动态的页面更加有利于优化，同时也容易被百度收录。现在也有很多伪静态的网站。下面就和大家详解一下ASP生成静态页面的方法。
<function  createHTML(ID)
'''''''''''''''''''''''''''''''''''''''''''''''''读取数据库相关信息
dim title,NewsType,Content
mydb.Sql="SELECT * FROM [News] WHERE [ID]="&ID
mydb.LockType=2
Set Rsnews=mydb.GetRs()
if not Rsnews.eof then
title = Rsnews("title")
Content = Rsnews("Content")
else
title="文章标题"
Content ="文章内容"
end if
Rsnews.close
set Rsnews = nothing
'''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''读取模版
dim tUrl
rootpath = server.MapPath("/")
tUrl=rootpath+"/template/news.html"
Dim objFSO,objCountFile,FiletempData,contentr
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(tUrl,1,True)
FSOFileRead = objCountFile.ReadAll
contentr = replace(FSOFileRead , "{$News_Title}",title)
contentr = replace(contentr,"{$Content}",Content)
contentr = replace(contentr,"{$RecommendNews}",title)
'''''''''''''''''''''''''''''''''生成新文件路径
dim newFilepath
newFilepath=rootpath + "/html/news_"&ID&".html"
response.Write(ID)
response.Write(title)
response.Write(newFilepath)
response.End()
'''''''''''''''''''''''''''''''''生成新文件并写入文件
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim fsor, fr, tsr
Set fsor = CreateObject("Scripting.FileSystemObject")
fsor.CreateTextFile  newFilepath           '创建一个文件。
Set fr = fsor.GetFile(newFilepath)
Set tsr = fr.OpenAsTextStream(ForWriting, TristateUseDefault)
tsr.Write contentr
tsr.Close
end function>