<html> <body> <% dim fs, f set fs=Server.CreateObject("Scripting.FileSystemObject") set f=fs.GetFile(Server.MapPath("testread.txt")) Response.Write("文件 testread.txt 的最后修改时间是：" & f.DateLastModified) set f=nothing set fs=nothing %> </body> </html>
<% dim fs, f set fs=Server.CreateObject("Scripting.FileSystemObject") set f=fs.GetFile(Server.MapPath("testread.txt")) Response.Write("文件 testread.txt 的最后修改时间是：" & f.DateLastModified) set f=nothing set fs=nothing %>