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
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
457

被折叠的 条评论
为什么被折叠?



