使用范例：

set fso=CreateObject("Scripting.FileSystemObject")

set f=fso.CreateTextFile( server.mappath( "" ), true )

f.WriteLine( asp2html("youpage.asp") )

f.close

set f = nothing

set fso = nothing

希望这个函数对大家有点用，由于水平有限，有错的地方请大家指出，并希望能加以改进。