如何获知文件被改动的情况？

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

 

response.write "记录文件被修改:" & file_getlastmodified

("d:\shenzhaoyang\record.txt")

response.write "糟了,这个文件已被修改过!" & file_getlastmodified("")

[1]