使用范例：

　　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

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