ASP生成HTML那种方法生成的最快

FSO的方法最快的了,从文件或数据库中读出模板HTML,把相关的内容用[NewHTML=Replace(Templet,"$Title$",Title)]的方法替换好,然后再写入文件中,应该是最快的,一秒可以生成N多页.

分享两个函数给你吧:

Set fso = CreateObject("Scripting.FileSystemObject")

Function ReadTxtFile(FileName)
Const ForReading = 1
Set ts = fso.OpenTextFile(FileName, ForReading)
ReadTxtFile = ts.ReadAll
ts.Close
Set ts = Nothing
End Function

Function WriteTxtFile(FileName,TextStr,WriteORAppendType)
Const ForReading = 1, ForWriting = 2 , ForAppending = 8
Dim f,m
Select Case WriteORAppendType
Case 1: '文件进行写操作
Set f = FSO.OpenTextFile(FileName, ForWriting, True)
f.Write TextStr
f.Close
If ReportFileStatus(FileName) = 1 then
WriteTxtFile = 1
Else
WriteTxtFile = -1
End if
Case 2: '文件末尾进行追加写操作
If ReportFileStatus(FileName) = 1 then