我们在做网站优化的时候都知道静态页面比动态页更加有利于优化，也有利于收录，现在也有很多的网站的页面静态的，有的是伪静态，今天我们和大家说说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>