苏斌's blog

function jt(str,fl,id)
path=""
set FileObject = server.createobject("Scripting.FileSystemObject")
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
path= Server.MapPath("/")
File = path&"/"&id&fl&".Html"
If FSO.FileExists(File) = True Then
fso.DeleteFile (File)
End If
if not FileObject.FolderExists(path) then
FileObject.CreateFolder(path)
end if
Set CTF = FSO.CreateTextFile(File,true, False)
CTF.Write str
Set ctf = Nothing
Set FSO = Nothing
end function