<!DOCTYPE html>
<html>
<body>
<%
Dim fs, f
set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.GetFile(Server.MapPath("testread.txt"))
Response.Write("文件 testread.txt 最后访问时间： " & f.DateLastAccessed)
set f=nothing
set fs=nothing
%>
</body>
</html>