<%
Function File_GetLastModified( sFile )
Dim objFileObj, objFile

Set objFileObj = CreateObject("Scripting.FileSystemObject")
  If sFile = "" Then
  sFile = Server.MapPath(Request.ServerVariables("SCRIPT_NAME") )
  End If
 
  Set objFile = objFileObj.GetFile(sFile)

  File_GetLastModified = objFile.DateLastModified
End Function
%>
<h3>文件是否被更改的实例</h3>
<hr>
<%
Response.Write "记录文件最后修改时间:" & File_GetLastModified("D:\wwwroot\ASP开发答疑200问\site\Chapter07\119\filechange.asp")
response.write "<br>"
Response.Write "程序文件最后修改时间:" & File_GetLastModified("")
%>