set fso=createobject("Scripting.FileSystemObject") set fn=fso.GetFile("E:/AD.txt") msgbox "文件创建时间:"&fn.DateCreated msgbox "文件最后修改时间:"&fn.DateLastModified msgbox "文件最后访问时间:"&fn.DateLastAccessed set fn=nothing set fso=nothing
<% dim fs,fname set fs=Server.CreateObject("Scripting.FileSystemObject") set fname=fs.CreateTextFile("c:/test.txt",true) fname.WriteLine("Hello World!") fname.Close set fname=nothing set fs=nothing %>