asp生成文本文件函數

function CreateHtml(mCode,mFilePath)
  dim objFSO,objFile
  set objFSO = server.CreateObject("Scripting.FileSystemObject")
  set objFile = objFSO.CreateTextFile(mFilePath,true)
  objFile.WriteLine mCode
  objFile.close
  set objFile = nothing
  set objFSO = nothing
end function