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]
发表评论