function CompareModifyDate(filename1, filename2)
	if InStr(LCase(Request.ServerVariables(«HTTP_ACCEPT_ENCODING»)), LCase(«gzip»))=0 then
		CompareModifyDate=1
	else
	 on error resume next
		Set fso = CreateObject(«Scripting.FileSystemObject»)
		Set File1 = fso.GetFile(filename1)
		Set File2 = fso.GetFile(filename2)
		if (File1.DateLastModified>File2.DateLastModified) or (File2.Size=0) then
			CompareModifyDate=1
		else
			CompareModifyDate=2
		end if
		Set File2 = Nothing
		Set File1 = Nothing
		Set fso = Nothing
	end if
end function

Поделитесь материалом с коллегами и друзьями