源代码:
<html> <body> <FONT COLOR=#ff0000><% dim fs, f set fs=Server.CreateObject("Scripting.FileSystemObject") set f=fs.GetFile(Server.MapPath("testread.txt")) Response.Write("The file testread.txt was last accessed on: " & f.DateLastAccessed) set f=nothing set fs=nothing %></FONT> </body> </html>
运行结果：
<html> <body> <FONT COLOR=#ff0000><% dim fs, f set fs=Server.CreateObject("Scripting.FileSystemObject") set f=fs.GetFile(Server.MapPath("testread.txt")) Response.Write("The file testread.txt was last accessed on: " & f.DateLastAccessed) set f=nothing set fs=nothing %></FONT> </body> </html>